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Hypra-Ass — ein 
Assembler der 


Spitzenklasse 


Hypra-Ass zum Abtip- 
pen gehört, was Lei- 
stung und Schnelligkeit 
anbelangt, zu den be- 
sten Assemblern, die 
es zur Zeit für den C 64 
gibt. Er assembliert 5 
KByte Quelltext in nur 
vier Sekunden. Die Defi- 
nition von Makros ist 
selbstverständlich. Ein 
tolles Listing des Mo- 
nats auf Seite 51 


EPROMs — Grundlagen 
und Programmiergeräte 


Was ist eigentlich ein 
EPROM, und wie pro- 
grammiert man 
EPROMSs? Dazu brau- 
chen Sie auf jeden Fall 
ein Programmiergerät. 
Fünf Vertreter dieser 
»Prommer« haben wir 
für Sie getestet. Mecha- 
nische Schalter auf die- 
sen Platinen gehören 
auf jeden Fall der Ver- 
gangenheit an. 

Seite 36 


Spiele-Tests 


Wir haben uns eine 
neue Form der Rubrik 
Spiele-Test ausge- 
dacht. Auf engstem 
Raum werden die wich- 
tigsten Informationen in 
übersichtlicher Form 
dargestellt und zwar für 
alle Spiele identisch. 
Damit lassen sich ähnli- 
che Spiele wesentlich 
besser miteinander ver- 
gleichen. 

Seite 48 
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Marktübersicht: 


Akustikkoppler und 
Modems 


Das Angebot an Aku- 
stikkopplern und Mo- 
dems nimmt mit wach- 
sender Beliebtheit der 
Datenfernübertragung 
bei Heimcomputer- 
Anwendern naturge- 
mäß stark zu. Eine aus- 
führliche Tabelle soll 
helfen, sich für das 
richtige Datenübertra- 
gungsgerät zu ent- 
scheiden. 

Seite 32 


Vergleichstest: Sieben 


Dateiverwaltungen auf 
einen Blick 


Für die Verwaltung von 
großen Datenmengen 
ist der Heimcomputer 

ideal geeignet, voraus- 
gesetzt man hat das 
richtige Werkzeug 
sprich Programm dafür. 
Wir stellen die sieben 
bekanntesten Dateiver- 
waltungsprogramme 
mit ihren wesentlichen 
Merkmalen vor. 

Seite 118 


Erster ausführlicher 
Testbericht: C 128 


(Teil 2) 

Im zweiten Teil unseres 
Tests geht es haupt- 
sächlich um das Be- 
triebssystem CP/M. 
Außerdem wird gezeigt, 
welche »Innereien« 
sich im C 128 befinden 
und welche Aufgaben 
die einzelnen Chips ha- 
ben. Elegant und lei- 
stungsfähig präsentier- 
te sich auch das neue 
Diskettenlaufwerk 1571. 
Seite 17 
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Editorial 





Ein DFÜ-Boom 


Die Datenübertragung kommt 
in Schwung: Unsere Marktüber- 
sicht zeigt, wie reichhaltig das 
Angebot an Akustikkopplern in- 
nerhalb eines Jahres geworden 
ist. Abetwa 300 Mark gibt esjetzt 
Geräte mit FTZ-Nummer, bezie- 
hungsweise offizieller Zulas- 
sung durch die Bundespost — al- 

'so Geräte, die nicht nur er- 
schwinglich sind, sondern die 
man auch guten Gewissens be- 
nutzen kann. 

Parallel dazu gibt es erfreuli- 
cherweise auch ein ausreichen- 
des Angebot an brauchbarer 

Datenübertragungssoftware. 
Unser Wettbewerb — das Er- 
gebnis finden Sie in dieser Aus- 
gabe — brachte ein sehr komfor- 
tables Terminalprogramm, das 
auch das Laden von Program- 
men aus einer Mailbox ermög- 
licht. An diesem Beispiel ist aber 
auch zu sehen, wie schnell die 
Entwicklung voranschreitet: Vor 
drei oder vier Monaten hätte 
dieses in Basic geschriebene 
Programm noch voll mit der 
kommerziell angebotenen Soft- 
ware konkurrieren können. 
Heute sind die um etwa 150 
Mark käuflichen, in Maschinen- 
sprache geschriebenen Stan- 
dardprogramme (oft inklusive 
Interface) schneller, sicherer 
und mitmehr Menüpunkten aus- 
gestattet. 

Obwohl man sich also ein gu- 
tes Terminalprogramm einfach 
abtippen kann, lohnt es sich im- 
mer noch, als Alternative einen 
Kauf in die Überlegungen einzu- 
beziehen. Auf beiden Gebieten 
haben Privatleute — beı den 
Akustikkopplern die Bastler, bei 
der DFU-Software die Program- 
mierer — mit ihren Produkten 
die kommerziellen Anbieter im- 
mer wieder so unter Druck ge- 
setzt, daß zügig sowohl die Prei- 
se gesunken als auch die Lei- 
stungen gestiegen sınd. Es ist zu 
hoffen, daß dieser produktive 
Wettbewerb nicht unnötig durch 
die Postvorschriften gebremst 
wird. 


Michael Pauly, Chefredakteur 


Hannover-Messe 


Die Hannover-Messe "85 bot einige 
interessante Neuigkeiten bei Bix, 
Drucker und Floppy. 


ie Teilnehmerzahlen bei 
Btx liegen weiıthinter den 
Erwartungen der Post zu- 
rück. Ein neues, preislich äu- 
Berst attraktives Modul für 
den © 64 könnte möglicher- 
weise den Durchbruch 
schaffen. Noch nicht offiziell, 
aber hinter verschlossenen 
Türen war auf der Hanno- 
ver-Messe ein Steckdecoder 
für den C 64 zu sehen, der 
bei einem Preis von 700 
Mark den teueren Bitx- 
fähigen Fernseher und den 
Decoder ersetzt. 

Das Dilemma der verzö- 
gerten Einführung von preis- 
werten Btx-Konsumentenge- 
räten liegt In einem einzigen 
integriertem Baustein, dem 
Eurom-Chip. Fast alle Her- 
steller haben sich bei der 
Konzeption ihrer Btx-ÄAnlage 
auf diesen von Valvo zu ent- 





sten CEPT-Standard ım Mo- 
dulgehäuse. 

Der Decoder besteht aus 
einer komplexen Videologik 
und 64 KByte dynamischen 
RAM. Register und RAM 
werden über die I/O-Kanäle 
bedient. Für Telesoftware 
soll der gesamte Computer 
zu Verfügung stehen. Außer 
dem C 64 und dem Steckde- 
coder braucht man noch eı- 
ne AÄnschlußbox der Post 
(monatliche Gebühren von 8 
Mark) oder einen Btx-fähı- 
gen Akustikkoppler. 

Die abgerufenen Seiten 
können auf einem handels- 
üblichen Farbfernsehgerät 
oder einem Farbmonitor 
(beispielsweise dem 170// 
1702) dargestellt werden. In 
Zusammenhang mit dem De- 
coder können alle Schnitt- 
stellen und Peripheriegeräte 


wicklenden Chipscenzers ınde=@ 64 benutzt werden. Es 


trıert. Bei der jüngsten 
Eurom-Generation konnten 
zwar die Darstellungs-Fehler 
früherer Serien behoben 
werden. Gleichzeitig aber st 
ein neues Problem aufge- 
taucht: Die aktuelle Serie ist 
außerordentlich wärmeemp- 
findlich. Wenn es diesen 
Chips — was sehr schnell ge- 
schehen soll — zu warm wird, 
kann von verläßlicher Funk- 
tionnichtmehr dieRede sein. 

Durch diese anhaltende 
Eurom-Verzögerung gibt es 
bei Konsumentengeräten 
weiterhin nur zwei Änbieter: 
Blaupunkt und Loewe Opta. 
Auch wenn der Chipsatz wie 
geplant zur Verfügung stün- 
de, dıe erhofften Preisvortei- 
le würde er einstweilen nicht 
bringen. Die Preiserwartun- 
gen der Hersteller liegen 
durch die Bank bei einem 
Aufpreis zwischen 1200 und 
1400 Mark für Btx-fähige 
Fernsehgeräte. 

Anders sieht der Sachver- 
halt für C 64-Besitzer aus. 

Technofor stellte den Pro- 
totyp ihres Btx-Steckdeco- 
ders auf der Hannover-Mes- 
se vor ausgewähltem Publi- 
kum vor. Es handelt sich da- 
bei um einen vollständigen 
Decoder nach dem neue- 


ist zum Beispiel möglich, sich 
Seiten auf Diskette zu über- 
spielen und später wieder 
anzuschauen oder Batch- 
Aufrufe (zum Beispiel Wahl- 
prozeduren etc.) wiederholt 
von der Diskette zu laden 
und zu starten. 

Das Decodermodul ist Te- 
lesoftware-fähig (siehe dazu 
unseren Wettbewerb in der 
letzten Ausgabe). Software 


kann so von kommerziellen 
Anbietern zur ein- oder 
mehrmaligen Benutzung be- 
zogen werden, oder auch 
zwischen Btx-Teilnehmern 
untereinander ausgetauscht 
werden. Im Herbst, wenn dıe 
Entwicklung zweier speziel- 
ler Chips abgeschlossen ist, 
kann der Preis für das Deco- 
dermodul nach Angaben 
des Herstellers unter 500. 
Mark sinken. 

Zusätzlich soll dieses Mo- 
Aul die Auflösung des C 64 
auf 480 (600)x240 Punkte ver- 
bessern. Zudem kann es als 
RAM-Floppy eingesetzt wer- 
den. Gerade durch die gro- 
ße Verbreitung desC 64 und 
dem günstigen Anschaf- 
fungspreis des Steckdeco- 
ders könnte hier die notwen- 
adige Initialzündung für eine 
weite Verbreitung von Btx 
gegeben werden. 


Drucker 


Auch bei den Druckern 
gab es auf der Messe einl- 
ges Neues zu bestaunen. Es 
waren sogar Trends zu er- 
kennen. Die Plotter gehen eı- 
ne Symbiose mit Schreibma- 
schinen ein (Bild ]). Panaso- 
nic und Silver Reed stellten 
jeweils entsprechende Mo- 
delle vor. Mit vier hochwerti- 
gen Kugelschreiberminen 
schreiben die Printer-Plotter 
in vier Farben Texte und 
Grafiken, die auch miteinan- 
der mischbar sind. 

Silver Reed stellte bei- 
spielsweise den Printer-Plot- 
ter EB50 vor. Der EB50 be- 
sitzt eine Centronics-Schnitt- 





Bild 2. Ein neuer Seikosha, voll grafikfühig und mit NLQ 
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Bild 1. Eine interessante Synthese: 


stelle und ist somit mit einem 
Interface an den C 64 an- 
schließbar. Aufeinem 16-Zei- 
chen-Display kann die Ein- 
gabe vor dem Druck kontrol- 
liert werden. Schriftarten 
sind Courier und Italic, in 
drei verschiedenen Größen 
mit automatischer Unter- 
streichung. Auch Balken-, 
Kurven- und Kuchendia- 
gramme können (auch hier 
in drei Größen) mit einfa- 
chem Tastendruck gezeich- 
net werden. Der Speicher 
für diese Grafik hat Platz für 
12 Zahlen, also zum Beispiel 
ausreichend für eine Jahres- 
bilanz. Verarbeitet wird nor- 
males DIN-A4-Papier. Zu ha- 
benistder EB50 für ungefähr 
800 Mark. 

Der Panasonic Printer- 
Plotter RK-P400C unterschei- 
det sich vom EB50 unter an- 
derem durch eine 24stellige 
LCD-Anzeige, 10 verschie- 





Schreibmaschinentastaturen mit Plotterfunktionen, hier Geräte von Silver Reed und Panasonic 


denenZeichengrößen, einer 
RS232C-Schnittstelle (ein Ka- 
bel zum Anschluß an den C 
64 ist auch erhältlich) und ei- 
nem Preis von 998 Mark in- 
klusive Mehrwertsteuer. 
Microscan stellte den neu- 
en Matrixdrucker Seikosha 
SP-1000VC vor (Bild 2). Seine 
Daten: direkt anschließbar 
andenC 64 und die anderen 
Commodore-Computer (ein 
Kabel wird mitgeliefert). 
Wie schon bekannt von Seı- 


kosha, besteht ein@millennleickt®: anzuwählen. 


Kompatibilität zum C 64, das 
heißt, sämtliche Steuerzei- 
chen einschließlich Block- 
grafik sowie eigendefinierte 
Grafik bedeuten keine Pro- 
bleme beim SP-1000VC. Er 
beherrscht 10 verschiedene 
Schriftarten, mit 100 Zeichen 
pro Sekunde im Normal- 
druck und bis zu 20 Zeichen 
pro Sekunde bei Korrespon- 
denzaualität (NLQ = Near 


Bild 3. NLQ (Near letter Quality) setzt sich immer mehr durch, 
hier der Star SG-10C 
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Letter Quality). Eine Grafik- 
auflösung bis 1920 Punkte 
pro Zeile, Druckweg-Opti- 
mierung und bidirektiona- 
lem Druck sowie Traktor- 
und Friktionsantrieb sind 
hervorzuheben. Wichtige 
Funktionen wie Selbsttest, 
Zeilen- und Seitenvorschub, 
linke und rechte Randbe- 
grenzung, Korrespondenz- 
und Normaldruck, automati- 
scher Einzelblatteinzug sind 
über die Bediener-Tastatur 
Sein 
Preis: 899 Mark inklusive 
Mehrwertsteuer. 

Es ist bezeichnend, daß 
immer mehr Druckerher- 
steller mittlerweile Drucker 
mit direktem Anschluß an 
den C 64 anbieten. So zum 
Beispiel Star, Epson, Quen- 
Data, Brother und C.Itoh. 

Star präsentierte aus sel- 
ner neuen Druckerpalette 
den SG-l0C mit Commodo- 
re-Anschluß (Bild 3: Ge- 
schwindigkeit: 120 Zeichen 
pro Sekunde, bidirektional 
und druckwegoptimiert. Zei- 
chensätze: Schönschnift 
(NLQO), je 192 Normal- und 
Grafikzeichen, je 90 Italic- 
und NLOQ-Zeichen und ein 
frei definierbares Zeichen. 
Der SG-10C ist voll grafikfä- 
hig, mit einer Auflösung von 
7x60 Punkte pro Zoll. Dop- 
pelt- und dreifachbreiter 
Druck ist ebenso möglich 
wie Schmalschrift und rever- 
se Schrift. Die Papierführung 
ist für Einzelblatt und Endlos- 
papier ausgelegt. Der Preis 
des SG-10C: Etwas mehr als 
1000 Mark. 

Mit dem neuen Matrix- 
drucker GX-80 liefert Epson 
einen leistungsfähigen und 
mit unter 1000 Mark auch 
preiswerten Drucker (Bild 4). 


Der GX-80 benötigt kein spe- 
zielles Interface mehr, son- 
dern ist mit Hilfe von ROM- 
Modulen bereits fertig an 
den betreffenden Compu- 
ter, unter anderem an den 
C 64, angepaßt. Seine Daten: 
100 Zeichen pro Sekunde, | 
KByte Puffer und ein Bereich 
für einen ladbaren Zeichen- 
satz, und neben dem norma- 
len Schriftbild ein NLQ- 
Zeichensatz im ROM. Mit 32 
internationalen Sonderzei- 
chen deckter die länderspe- 
zifischen Schriftarten ab, und 
eine Vielzahl programmier- 
barer Funktionen läßt eine 
vielseitige Verwendung zu. 
Der GX-80 transportiert Ein- 
zelblätter mittels Friıktions- 
antrieb. Eine Kassette für au- 
tomatischen Einzelblattein- 
zug und eine Traktorführung 
für Endlospapier sind — sehr 
ungewöhnlich — optional er- 
hältlich. 

Der Riteman C + sieht ganz 
anders aus, als man es bis- 
her von Matrixdruckern ge- 
wohnt ist. Das Papier (End- 
lospapier oder Einzelblatt) 
wird nicht von hinten, son- 
dern von vorne In die ver- 
stellbaren Traktoren gelegt 
und läßt sich hinter dem 
Druckkopf abtrennen. Da 
der Drucker auf zwei hohen 
Stelzen stehen kann, bietet 
sich unter dem Riteman C+ 
ein idealer Platz an für das 
Druckerpapier. Das spart eil- 
ne Menge Platz bei Endlos- 
papier und ist auch für Eti- 
ketten- und Einzelblattverar- 
beitung geeignet. Der Druk- 
ker ist MPS 801/803-kompati- 
bel. Die wichtigsten Daten: 
105 Zeichen pro Sekunde, 
9x9 Matrix und grafikfähig. 
Schriftarten: Pica, komprı- 
miert, Proportional, Breit- 
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schriftkombinationen, Su- 
per-/Subscript, Uhnterstrei- 
chungen und Unterlängen. 
Druckarten: Standard, Fett- 
druck und Doppeldruck. Er 
besitzt vier Internationale 
Zeichensätze und 82 Grafik- 
symbole. Angeschlossen 
wird der Riteman C+ wie 
die Commodore-Drucker 
über ein mitgeliefertes Ka- 
bel. Sein Preis: 998 Mark in- 
klusive Mehrwertsteuer. 
Quen-Data war mit einem 
Commodore-kompatiblen 
Matrix-Drucker, dem DMP 
1100 VG vertreten. Die wich- 
tigsten 'Daten: 100 Zeichen 
pro Sekunde, deutscher Zei- 
chensatz, Unterlängen, hoch- 
auflösende Grafik und 
Blockgrafik (640x8 Punkte). 
Die Traktorführung ist ver- 
stell- und abnehmbar, aber 
auch Friktionsantrieb (für 
Einzelblatt) ist vorhanden. 
Preis: 849 Mark mit VC-Inter- 
face und 1048 Mark mit VC 
und Centronics-Interface. 
Mit der TC-600 hat Brother 
eine elektronische Schreib- 
maschine auf den Markt ge- 
bracht, die von Brother als 
Handheld-Telekommunika- 
tions-Terminal bezeichnet 
wird. Und in der Tat ermög- 
licht die TC-600 den weltwei- 
ten Dialog mit allen Compu- 
tern, die über Telefon er- 
reichbar sind. Texte können 
aus dem 14,3 KByte Speicher 
mit 300 Baud gesendet und 
empfangen werden. Sogar 
ein eigenes 3%-Zoll-Disket- 
tenlaufwerk ist erhältlich. 
Und eine Steckdose brau- 
chen Sie auch nicht unbe- 
dingt: | Batteriebetrieb ist 


Bild 4. Beim Epson GX-80 ist die Traktorführung als Option 
erhältlich 
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möglich. Der Preis beträgt 
1365 Mark plus 169 Mark für 
das notwendige Kabel. Ei- 
nen ausführlichen Test lesen 
Sie bald im 64’er Magazin. 

Gleich 3 Drucker von Citı- 
zen waren auf dem Synelec- 
Stand zu sehen. Der MSP-10 
(1699 Mark) und sein breite- 
rer Bruder, der MSP-15 (2199 
Mark) präsentierten sich im 
wirklich schönen Slim-Line- 
Design. 160 Zeichen pro Se- 
kunde, NLQ-Schrift und viıe- 
le Zeichensätze plazieren 
die beiden in die gehobene 
Leistungsgruppe. Im Low- 
cost-Bereich bewegt sıch 
der Citizen TTP 680 mit 600 
Mark. Der Thermodrucker 
erreicht eine Druckge- 
schwindigkeit von 50 Zei- 
chen pro Sekunde und kann 
direkt an den C 64 ange- 
schlossen werden. 

Auch iin bezug aufFarbe tut 
sich was auf dem Drucker- 
Markt. Der Seikosha GP-700 
hat ein VC hinter seinen Na- 
men bekommen, willheißen: 
direkt anschließbar an den 
C 64. Mit den vier Grundfar- 
ben lassen sich Insgesamt 
sieben Farben darstellen. 
Preis: 1198 Mark ın ve 
Mehrwertsteuer. EIER 

Mit ungefähr 2300 Mark 
bewegt sich der Farbdruk- 
ker 5510/5520 von Jukı zwar 
in einer anderen Preisklas- 
se, leistet jedoch um einiges 
mehr. Mit 180 Zeichen pro 
Sekunde wirklich schnell 
und mit weniger als 60 db(A) 
noch angenehm leise, einem 
2 KByte Puffer und eine gan- 
zen Menge an Schriftarten 
und Zeichensätzen. 





Diskettentrends 

Die Hannover-Messe zeig- 
te es ganz deutlich: Auf dem 
Diskettensektor tut sıch eini- 
ges. Neue Technologien und 
neue Formate sind ım Vor- 
marsch. Dabei werden die 
Disketten immer kleiner und 
die Speicherkapazität steigt. 

Alle wichtigen Disketten- 
hersteller bieten inzwischen 
3%-Zoll-Disketten an. Die 
Entscheidung von IBM (beim 
AT) für 3%-Zoll wird wahr- 
scheinlich den letzten An- 
stoß zur allgemeinen Einfüh- 
rung dieses Formates geben 
(die anderen Formate im 
3-Zoll-Bereich wie 3, 3%, oder 
3%, dürften sich wohl nicht 
durchsetzen). Die 3%-Zoll- 
Diskette hat tatsächlich einı- 
ge Vorteile gegenüber dem 
54%-Zoll-Format: Sie ist handli- 
cher, paßt in jede Hemdta- 
sche und ist durch das stabi- 
le Gehäuse mit der ver- 
schließbaren Schreib/Le- 
seöffnung optimal gegen 
Verschmutzung und Beschä- 
digung gesichert. Die Spei- 
cherkapazität steht dabei 
den 54-Zoll-Disketten in 
nichts nach, da durch den 


Orb&sssetern, Schutz der Ma- 


gnetschicht höhere Auf- 
zeichnungsdichten möglich 
sind. Man darf gespannt 
sein, wann das erste 3%-Zoll- 
Laufwerk für den © 64 erhält- 
lich sein wird. 

Im Hinblick auf neue Tech- 
nologien scheint sich für die 
Diskette der gleiche Weg 
wie bei der Compact Casset- 
te im HiFi-Sektor abzuzeich- 
nen: Bei BASF setzt man auf 
Chromdioxid- und Reınel- 
sen-Disketten zur Steigerung 
der Aufzeichnungsdichte 
und -qualität. Maxell plant 
ebenfalls die Einführung eı- 
ner Reineisendiskette mit ei- 
ner Kapazität von fünf Mega- 
byte pro Diskettenseite. 
Auch von anderen Herstel- 
lern wird dieser Schritt in Er- 
wägung gezogen. 

Auch optische Disketten, 
bei denen die Information 
wie bei einer Videoplatte 
per Laserstrahl abgetastet 
wird, sind für die Zukunft 
möglicherweise auch im ge- 
hobenen Homecomputer- 
Bereich zu erwarten. Spel- 
cherkapazitäten um die 2,6 
Gigabyte, also etwa »10600 
Blocks free« — das läßt wohl 
des Herz jedes C 64-Besit- 
zers höher schlagen. 

(aa/gk/ev) 


James Bond — 
Computerspiel und Film 


Eine große Fabrik in Sunval- 
ley, die Computerchips herstellt, 
soll in die Luft gesprengt wer- 
den. Agent 007 (Roger More) soll 
dies verhindern. Soweit die Rah- 
menhandlung des neuen James 
Bond-Filmes »A View to kill« (Im 
Angesicht des Todes). Der Film 
wird am ]2. Juni in England an- 
laufen. Eine Woche vorher, am. 
Juni, erscheint ein Computer- 
spiel der englischen Firma Do- 
mark zu diesem Film. 

Das Spiel wird aus drei Teilen 
bestehen, die genau an die Film- 
handlung angelegt sind. Der er- 
ste Teil spielt in Paris. Im Restau- 
rant des Eifelturms wird in Ja- 
mes Bonds Gegenwart ein Infor- 
mand erschossen. Der Mörder 
flüchtet dann in einem Auto quer 
durch Paris. Hier setzt der erste 
Spielteil ein. Sie müssen als 007 
den Wagen verfolgen. Auf dem 
Monitor sehen Sie den Stadtplan 
von Paris, auf dem die Position 
Ihres und des anderen Autos ge- 
kennzeichnet ist. Weiterhin wird 
in 3D-Grafik der Ausblick aus 
dem Wagen gezeigt. Die Verfol- 
gungsjagd kann beginnen. 
Schaffen Sie diesen Teil nicht 
gleich auf Anhieb, langweilig 
wird das nächste Spiel bestimmt 
nicht. Der Fluchtweg des Autos 
verändert sich mit jedem Spiel. 

Haben Sie diese Hürde ge- 
nommen, erhalten Sıe ein Paß- 
wort, das sich aus dem vorher 
eingegebenen Namen und der 
benötigten Zeit ergibt. Mit die- 
sem Code gelangen Sie in den 
nächsten Teil des Spiels. 

Mit diesem Teil gelangen Sie 
nach San Francisco. Sie befin- 
den sich in einem brennenden 
Hochhaus. Dieser Spielteil ist 
ein Arcade-Adventure. Sie müs- 
sen in fünf Stockwerken mit ins- 
gesamt 75 Räumen Hilfsmittel 
suchen, um aus dem brennen- 
den Haus zu entkommen. Doch 
achten Sie darauf: das Feuer 
frißt sich schnell weiter vor. 

Auch hier bekommen Sie nach 
erfolgreicher Beendigung des 
Levels ein Paßwort für den dlrit- 
ten Teil des Spieles. 

Im dritten Abschnitt befinden 
Sie sich in einem Höhlensystem 
unter dem Sunvalley. Sie müssen 
eine Bombe finden, entschärfen 
und sie aus dem Höhlensystem 
entfernen. Ähnlich wie bei Im- 
possible Mission müssen Sie 
vorher in verschiedenen Räu- 
men Aufgaben lösen. Dieser Teil 
ist unter anderem ein Wettlauf 
gegen die Zeit. Entschärfen Sie 
die Bombe nicht rechtzeitig, ist 
Sunvalley verloren. 

Am Ende des Spieles, so ist 
von Domark zu hören, befindet 
sich eine »secret animated se- 
quence«. Genaueres erfahren 
Sie in der nächsten Ausgabe. 


SPupchken 


1e,net 


Aktuell 





Musik von Duran Duran 

Die Titelmusik zum neuen Ja- 
mes Bond-Film stammt von Du- 
ran Duran. Es gelang dem engli- 
schen Software-Produzenten, 
die Rechte an der Musik für ıhr 
Spiel zubekommen. Ob die Um- 
setzung auf den C 64 genauso 
gelungen ist wie bei Ghostbu- 
sters, bleibt abzuwarten. Auch 
dies erfahren Sie in der näch- 
sten Ausgabe. 

Bei dem Spiel handelt es sıch 
übrigens tatsächlich um eine 
Neuentwicklung, die sich auf 
den neuen Film bezieht. Sie soll- 
te also nicht mit dem Spiel 007 
von Parker Brothers verwech- 
selt werden, das wohl als sehr 
verunglückt bezeichnet werden 
konnte und keinen Bezug auf ei- 
nen James Bond-Film hatte. 

Der Trend 

Stars auf dem Bildschirm zu 
haben, war schonimmer das Än- 
liegen der Filmproduzenten. 
Doch auch die Softwareprodu- 
zenten wollen sich ein Stück des 
Erfolgskuchens abschneiden. 
Spätestens nach dem legendä- 
ren Film-, Musik- und (natürlich) 
Softwareerfolg von »Ghostbu- 
sters« wollen alle auf der Er- 
folgswelle mitreiten. Nach dem 
Beginn der »Spiel zum Buch«- 
Welle kommt jetzt also auch die 
»Spiel zum Film«Welle ins Rol- 
len. Lizenzen werden nicht nur 
zu den Markennamen der Stars 
und zur Filmhandlung gekauft, 
sondern auch der Musik. Erst 
Ghostbusters, jetzt Duran Du- 
rans James Bond-Musik. Doch 
bei allem Trend: Warten wir lie- 
ber immer erst ab, ob das Spiel 
soviel Spaß bringt wie das Anse- 
hen des Films. Der Name eines 
Stars macht noch lange kein gu- 


tes Spiel aus. (rg) 

Noch ein 

Floppy-Beschleuniger 
Das System »Floppy-Flash 


1541« von Mikrotronic soll das La- 
den und Speichern aller File- 
Typen auf dem Laufwerk 1541 
nach Angaben des Hersteller 
bis zu lMOmal schneller machen. 
Das System wird am Expansion- 
Port angeschlossen (der durch- 
geschleift ist) und bietet erwei- 
terte DOS-Befehle auf Funk- 
tionstasten, einen speziellen Re- 
set und ein Centronics-Interface 
mit Hardcopy-Funktion. Die 
RS232-Schnittstelle soll verbes- 
sert worden sein. Außerdem sol- 
leneinSchnellkopierer und eine 
Schreibschutzfunktion einge- 
baut sein. 

Die Umrüstarbeiten sollen we- 
niger als 5 Minuten in Anspruch 
nehmen. Zum Preis von 79 Mark 
ist eine Erweiterung erhältlich, 
die den Betrieb eines zweiten 
Laufwerks gestatten soll. Außer- 
dem ist ein Ein-Minuten-Schnell- 
kopierer für 39 Mark lieferbar. 


Info: Dipl.-Ing. K. Roreger, Liebigstr. 28, 
4780 Lippstadt, Tel. 02238/43556 
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Viele Schulen im Bundesge- 
biet verfügen noch nichtüber ei- 
ne ausreichende Ausstattung an 
Computern, um ihren Schülern 
eine zeitgemäße Ausbildung an 
diesen Systemen zu gewährlei- 
sten. In einigen Bundesländern 
sind zwar bereits Aktionen auch 
von seiten der Kultusministerien 
in Angriff genommen worden, 
um dieser Unterversorgung ab- 
zuhelfen. Dennoch verbleibt dıe 
Initiative, die jeweilige Schule 
mit einer ausreichenden Anzahl 
an Computern zu versorgen, Im- 
ner noch den Lehrern, Direkto- 
ren, engagierten Schülern oder 
Eltern vorbehalten. 

Eines hat sich auf dem 
Technologie-Forum, das ım 
März '85 von Commodore veran- 
staltet wurde, ganz deutlich ge- 
zeigt: Der Computer wird sicher 
die Kreidepädagogik ersetzen, 
doch die Rolle des Lehrers wird 
in absehbarer Zeitnichtin Frage 
gestellt sein. Deshalb sind gera- 
de die Lehrer, welche einen 





Neues Kopierprogramm 


Die »Orginal Data Backup 
Box« ist ein 40-Spur-Error-Ko- 
pierer von Mikrotronic für 139 
Mark auf Modul, das 40 Spuren 


und Read Errors BePhinfer 


schiedlicher Synchronisation 
kopieren kann. Dieses Modul 
enthält DOS-Befehle, Directory- 
Anzeige, 40-Track-Error-Backup 
in drei Minuten, ein Zwei-Minu- 
ten-Fast-Backup für 36 Spuren 
undschnelles Filecopy für unge- 
schütze Files. Nach Angaben 
des Vertreibers richtet sich die- 
ses Modulanalle Besitzer teurer 
Original-Software, die Ihre Dis- 
ketten im Dauereinsatz haben. 
Als »Original Read-Error Box« 
wird für 89 Mark eine Version 
angeboten, die sich nicht auf die 
Synchronisation der Spuren 37 
bis 40 bezieht. 


Info: Dipl-Ing. K. Roreger, Liebigstr. 28, 
4780 Lippstadt, Tel. 02238/43556 


Software für Friseure 


Eine spezielle Brachenlösung 
für Friseure bietet der HG.M. 
Alpenland-ertrieb an. Das ge- 
samte System, bestehend aus C 
64, Datenspeicher, Bildschirm, 
Drucker, Kassendrucker und di- 
versen Programmen wie Regi- 
strierkassen, Auswertung mit 
Leistungsstatistik für einen Sa- 
lon und 50 Mitarbeiter, Lohn/ 
Grafik, Hauptprogramm mit 
ständiger Inventur für Verkauf 
und Kabinett, Initialisierung, 
Summierung und Kassenzettel 
kostet 4990 Mark. Die gesamte 
Anlage kann auch für eine mo- 
natliche Gebühr von 120 Mark 
gemietet werden. 


Info: HGM. Alpenland-Vertrieb, G. Linder, 
Hauptstraße 43, 8222 Ruhpolding 


»Notstand« an ihrer Schule er- 


VAM ruft alle mit Computern unterversorgten Schulen zur Mitarbeit auf 


kannt haben, aber auch die, die 
bisher noch mit einer gewissen 
Skepsis und Reseviertheit dem 
»neuen Medium« Computer ge- 
genüberstanden, aufgerufen, 
den Schülern (und sich selbst) 
zeitgerechte Lehr- und Lernmit- 
tel zur Verfügung zu stellen. 

Die Idee des VAM (Verein zur 
beratenden Aufklärung über 
die Mikrocomputertechnologie 
e.V.), möglichstin alle Schulen ei- 
ne ausreichende Anzahl von 
Computern zu bringen, beruht 
auf der sogenannten Mietpaten- 
schaft. 

Dabei werden acht bis zehn 
spezielle Schulcomputer »Leib- 
niz I« (momentan basierend auf 
dem C 64, der in Zukunft aber 
um einige Leistungsmerkmale 
wie Vernetzung oder Schnella- 
desysteme bereichert werden 
wird) zur Verfügung gestellt. 
Handwerksbetriebe, Banken, 
Versicherungen, _mittelständi- 
sche Unternehmen oder Kauf- 
hausketten in der Umgebung 
der Schule übernehmen die 


Einbaumodem auch 
für den C 64 


In Kürze soll es laut Bundes- 
post auch für den © 64 das Ein- 


ı Ichalımodem geben. Der Termin 


der Einführung stand zum Re- 
daktionsschluß noch nicht fest, 
wohl aber der Preis. Das Ein- 
baumodem kostet pro Monat 20 
Mark Miete. Der Anschluß er- 
folgt durch die Bundespost. Ge- 
nauere Angaben in einer der 
nächsten Ausgaben. (rg) 


Terminal 64 für 


Ascom-Akustikkoppler 


Das Terminalprogramm »Ter- 
minal 64« wurde jetzt für den 
Ascom-Akustikkoppler wumge- 
setzt und ist ab sofort erhältlich. 
Testbericht siehe 64’er Ausgabe 
2/85. (rg) 


Bezugsquelle: Dynamics Marketing 
GmbH, Große Bäckerstr. ll, 2 Hamburg 1 


Gerüchte um »Eureka« 


Die Gerüchteküche in 
Deutschland kocht. Es geht hier- 
bei um das Abenteuerspielpa- 
ket Eureka, auf dessen Lösung 
25000 englische Pfund ausge- 
setzt sind. Gerüchte wie »Die 
englische Veranstalterfirma Do- 
mark ist in Konkurs gegangen« 
entsprechen nicht der Wahrheit. 
Zum Zeitpunkt dieser Meldung 
ist Eureka noch nicht gelöst. Der 
Preis ist also noch zu haben! 
Unter der Hotline-Nummer 
004418791166 kann 24 Stunden 
lang der aktuelle Stand abgeru- 
fen werden. (rg) 


teile: Die Schulen kommen zu ıIh- 





(monatliche) Finanzierung eines 
oder mehrerer dieser Systeme. 

Die Aktivierung dieser Unter- 
nehmen wird von den jeweiligen 
Initiatoren und dem VAM vorge- 
nommen. Alle Beteiligten haben 
von dieser Mietpatenschaft Vor- 


ren Computern und können den 
Schülern zeitgemäßen Unter- 
richt präsentieren (nicht nur in 
ureigensten Gebieten wie Infor- 
matik oder Mathematik, son- 
dern auch als unterstützende 
Maßnahmen für eine moderne 
Aufbereitung der Lehrinhalte ın 
anderen Fächern). Die Firmen 
der Umgebung können mit 
Schulabgängern rechnen, die 
hervorragende Kenntnisse in 
den neuen Formen der Daten- 
ver- und bearbeitung und der 
Computertechnologie aufwar- 
ten können. Für eine erste Kon- 
taktaufnahme steht der VAM be- 
reit. 


Info: VAM, Rheinallee 6, 5300 Bonn 2, 


Tel. 0228/36 3571 





53-KByte- 
Terminalprogramm 


Das Terminalprogramm »Ter- 
minal 86« gibt esaufEPROM und 
stellt 53 KByte für die Datenauf- 
nahme zur Verfügung. Eine stän- 
dige Helpseite ist integriert und 
jederzeit aufrufbar. Die Übertra- 
gungsrate ist wählbar zwischen 
300, 600 und 1200 Zeichen pro 
Sekunde. Ebenso kann man zwi- 
schen ASCI oder deutscher Ta- 
statur wählen. Das Programm 
verfügt über einen eingebauten 
Editor, die Parametereinstel- 
lung (Parität, Voll- oder Halbdu- 
plex, etc.) erfolgt über Tasten- 
druck und kostet 139 Mark. 


Info: JJC, Crispinstr. 4, 4600 Dortmund 50 


Neuer Reparatur- 
schnellservice 
in München 


Reparaturen innerhalb eines 
Tages garantiert SEP in Mün- 
chen. Dabei sollen nicht nur 
Commodore-Systeme berück- 
sichtigt sein. SEP sieht sich spe- 
ziell als Anlaufstelle für Schulen, 
die bisher Schwierigkeiten mit 
der Reparatur ihrer Schulcom- 
puter hatten. Zudem will SEP als 
Anlaufstelle für Entwicklungen 
im Bereich Software und Hard- 
ware für Schulen verstanden 
sein. Neue Entwicklungen sol- 
len dort aufihre Tauglichkeit für 
den Schulunterricht untersucht 
werden. 


Info: SEP. Hans-Pinsel-Str. 10b, 8013Haar bei 
München, Tel.: 089/4605340 
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Ärger mit der 1541 


Ich habe einige Schwierigkei- 
ten mit meinem Floppy-Lauf- 
werk. Wenn es längere Zeit in 
Betrieb und ziemlich warm ge- 
worden ist, nimmt die Diskette 
kein Programm mehr an. Beim 
Speichern meldet die Floppy 
dann Fehler 20 oder 27. Das 
Laufwerk lädt dann auch nicht 
mehr, auch keine Directories 
von anderen Disketten. Nach 
längerem Abkühlen kann wie- 
der geladen werden, aber nicht 
mehr die Programme, die ich 
vorher abspeichern wollte. Auf 
dem Laufwerk ist noch Garantie 
und es warauchschon zur Repa- 
ratur beim Händler. Der sagte, 
es sei eine Neueinstellung vor- 
genommen worden. Aber der 
Fehler tritt immer wieder auf. 
Schadet es der Floppy, wennich 
einen Reset auslöse? Dabei läuft 
die Floppy kurz an und die rote 
Lampe leuchtet. Josef Spiertz 


Ihr Problem beruht auf der 
thermischen Ausdehnung von 
Metallen. Die Mechanik des 
Laufwerkes dehnt sich norma- 






Fragen Sie doch 


Selbst bei sorgfältiger Lek- 
 türe von Handbüchern und 
Programmbeschreibungen 
bleiben beim Anwender im- 
mer wieder Fragen offen. 
Viel mehr Fragen ergeben 
sich bei Computer-Interes- 
senten, die noch keine fe- 
sten Kontakte zu Händlern, 
Herstellern oder Compu- 
terclubs haben. Sie können 
der Redaktion Ihre Fragen 
schreiben oder Probleme 
schildern (am einfachsten 
auf der Karte »Lesermei- 
nung«). Wir veranlassen, daß 
sie von einem Fachmann be- 
antwortet werden. Allge- 
mein interessierende Fra- 
gen und Äntworten werden 
veröffentlicht, die übrigen 
brieflich beantwortet. 
























14 23ap 


lerweise nur minimal aus. BeıIh- 
nen scheint der ‚unglückliche 
Extremfall vorzuliegen, daß 
durch diese Ausdehnung der 
Schreib-/Lesekopf total verstellt 
wird. Dann kann die Floppy-Sta- 
tion weder Daten lesen noch 
schreiben. So, wie bei Ihnen ge- 
schildert, darf dieses Problem 
aber unter normalen Umstän- 
den nicht auftreten. Normaler- 
weise ist ein mehrstündiger Be- 
trieb, solange nicht laufend for- 
matiert wird, ohne Probleme 
möglich. Es gibt hier zwei Lö- 
sungsmöglichkeiten: _Entweder 
Sie sorgen für Kühldng, nd 
Sie die Floppy »offen«, das heißt 
ohne Gehäusedeckel, betrei- 
ben oder einen Lüfter verwen- 
den. Die Alternative wäre, daß 
Sie auf einen Umtausch des 
Laufwerkes bei Ihrem Händler 
bestehen. 

Bei einem Reset am Computer 
wird auch in der Floppy ein Re- 
set ausgelöst. Das hat keinerlei 
schädliche Folgen für Floppy 
und Diskette. 


Vizawrite-Hilfe 


Ich arbeite mit einer engli- 
schen Version von Vizawrite 
und suche nach einer Möglich- 
keit, deutsche Umlaute darstel- 
len zu können. 

Ausgabe 5/85 
Bertram Hafner 

Der Zeichenspeicher bei Vi- 
zawrite 64, englische Version, 
beginnt bei $3800 und endet bei 
$3FFF. Durch entsprechende 
POKEs können in diesem Be- 
reich die notwendigen AÄnde- 
rungen vorgenommen werden. 
Dies ist bei AOU ohne weiteres 
möglich, indem man die Zei- 
chencodes für die eckigen 
Klammern beziehungsweise 
das Pfundzeichen entsprechend 
ändert. 

Leider stößt ein ähnliches Vor- 
gehen bei den kleingeschriebe- 
nen Umlauten ä,ö,ü sowie bei ß 
auf erhebliche Schwierigkeiten, 
da aufgrund bestimmter AND- 
Verknüpfungen innerhalb des 


Programms die Erzeugung der 
entsprechenden Zeichencodes 
durch Tastendruck verhindert 
wird. 

Ich selbst habe die notwendi- 
gen Änderungen in Vizawrite 64 
unter großen Schwierigkeiten 
vorgenommen, so daß nun auf 
Bildschirm und Drucker alle 
Umlaute und ß in Verbindung 
mit der Commodore-Tlaste er- 
zeugt werden können. 

In Verbindung mit Hypra- 
Load kann nun sogar die nervtö- 
tende Ladezeit um den Faktor 
sechs verkürzt werden. 

Ich bin gerne bereit, Besitzern 
des englischen Vizawrite ihr 
Originalprogramm gegen eine 
Unkostenvergütung entspre- 
chend zu modifizieren. 

Hanno Hettinger 


Wer kennt das Quick 
Data Drive? 


Ich möchte mir im Sommer 
dieses Jahres das Quick Data 
Drive von NCS zulegen. Da die- 
se Floppy-Alternative noch 
ziemlich wenig verbreitet ist, 
wäre ich an Erfahrungen ande- 
rer Leser mit diesem System in- 
teressiert. Marc Nelles 


Listschutz geknackt 


In der Ausgabe 12/84 des 
B4’er-Magazins wurde ein laut 


Ein ieAutens ınknackbarer« Listschutz 


vorgestellt. Wer sein Programm 
wirklich wirksam schützen will, 
der sollte diesen »Schutz« aller- 
dings nicht verwenden. Er kann 
nämlich durch einen einfachen 
POKE-Befehl (POKE 43,82) au- 
ßer Gefecht gesetzt werden. 
Dieser POKE bewirkt ein Ver- 
schieben des Basic-Starts, so 
daß beim Listen die beiden Zei- 
len, in denen der Listschutz akti- 
viert wird, einfach übersprun- 
gen werden. 

Der eben genannte POKE gilt 
zwar nur ganz speziell für das 
abgedruckte Listschutzpro- 
gramm, aber selbst ein mittel- 
mäßiger Hacker kann derartige 
Schutzmaßnahmen leicht 
knacken, und sei es etwas auf- 
wendiger mit einem Maschinen- 
sprache-Monitor. 

Stefan Pastuszka 

Zum Thema Listschutz errei- 
chen uns ständig neue Zuschrif- 
ten. Viele Leser suchen einen 
guten Listschutz für ihre Pro- 
gramme, ohne zu bedenken, 
daß ein abgedruckter Listschutz 
kein Schutz mehr ist, denn aus 
der Kenntnis der Funktionswei- 
se ergibt sich fast zwangsläufig 
auch die Möglichkeit, einen sol- 
chen Schutz auch zu »knacken«, 
wie das obige Beispiel beweist. 


Hi-Eddi mit CP 80 


Das wirklich gute Grafikpro- 
gramm Hi-Eddi (Listing des Mo- 
nats in Ausgabe 1/85) kann auch 
mit einem Melchor CP 80-Druk- 


ker zusammenarbeiten. Durch 
folgende Änderungen im Hi- 
Print ist eine Druckausgabe in- 
klusive aller Sonderfunktionen 
auf dem CP-80 mit Vobis- 
Interface möglich: 

460 DATA 4 

550 DATA 27,51,21,255,255 

580 DATA 27,75,255,259,255 
Ärgerlich ist bei Hi-Eddi je- 
doch, daß man im Sprite-Edit- 
Modus die gesetzten Punkte 
nicht wieder löschen kann. 

Bei meinem C 64 taucht noch 
ein spezielles Problem auf: Di- 
rekt nach dem Einschalten sind 
die Grafiken von verschiedenen 
Spielen total verzerrt und ver- 
schoben. Nach einiger Zeit gibt 
sich das allerdings wieder von 
selbst. Wer hat ein ähnliches 
Problem oder kann mir helfen? 

Thomas Küpper 


Wollen Sie antworten? 


Wir veröffentlichen auf 
dieser Seite auch Fragen, die 
sich nicht ohne weiteres an- 
hand eines guten Archivs 
oder aufgrund der Sachkun- 
de eines Herstellers bezie- 
hungsweise Programmie- 
rers beantworten lassen. Das 
istvorallem derFall, wenn es 
um bestimmte Erfahrungen 


gehtoderumdie Suchenach 


speziellen Programmen. 
Wenn Sie eine Antwort auf 
eine hier veröffentlichte Fra- 
ge wissen — odereine ande- 
re, bessere Antwort als die 
hier gelesene, dann schrei- 
ben Sie uns. Antworten publi- 
zieren wir in einer der näch- 
sten Ausgaben. Bei Bedarf 
stellen wir auch den Kontakt 
zwischen Lesern her. 


Software aus Amerika 


Ich möchte für meinen C 64 
Programme direkt aus Amerika 
besorgen. Meine Frage: Läuft 
die in Amerika angebotene 
Software auch auf der europäi- 
schen Version des C 64 ? Ich 
denke dabei insbesondere an 
Probleme, die sich aus unter- 
schiedlichen TV-Normen (Pal/ 
NTSC), Netz- und Quarzfrequen- 
zen ergeben können. 

Ingo Zeigler 

Fast die gesamte in Amerika 
angebotene Software läuft völlig 
problemlos auch auf der euro- 
päischen Version des C 64. Die 
unterschiedlichen TV-Normen 
bedingen lediglich unterschied- 
lich konzipierte HF-Modulato- 
ren, haben jedoch keinen Ein- 
fluß auf die Software. Die unter- 
schiedlichen Netz- und Taktfre- 
quenzen dürften nur bei sehr 
wenig Programmen wirklich 
Probleme machen. Es läßt sich 
aber nicht pauschal sagen, bei 
welcher Art von Programmen 
Schwierigkeiten auftreten könn- 
ten. Im Einzelfall hilft leider nur 
Ausprobieren. 
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l. Kann ein Schaden an den 
Geräten (Zentraleinheit, Floppy 
und Farbfernseher) entstehen, 
wennichsiealle dreiaufeinmal 
einschalte oder muß ich erst 
den Fernseher einschalten, war- 
ten bis ein Bild da ist, dann die 
Zentraleinheit in Betrieb setzen 
und nachher das Floppy-Lauf- 
werk einschalten? 

2. Was kann an der Floppy- 
Station und der Diskette kaputt- 
gehen, wenn sich eine solche 
während des Ein- oder Aus- 
schaltens im Laufwerk befin- 
det? Mir ist das schon öfter pas- 
siert, aber soweit ist noch alles 
ganz. 

3. Kann es sein, daßes den C 
64 mit verschiedenen Betriebs- 
systemen gibt? Mein Freund hat 
ein Spiel »Popeye«, das bei ihm 
einwandfrei läuft. Wenn wir es 
aber bei mir spielen wollen, 
macht es immer einen Ausstei- 
ger. 

4. Was kann an der Hardware 
kaputtgehen, wenn ich wäh- 
rend des Betriebs ein Verbin- 
dungskabel löse? 

Michael Reichel 


l. Den Geräten ist es völlig 
egal, in welcher Reihenfolge sie 
eingeschaltet werden. Beson- 
ders bequeme Menschen wie 
beispielsweise die B4’er- 
Redakteure lösen das Einschalt- 
problem besonders elegant: Al- 
le Geräte werden an eine Steck- 
dosenleiste mit Schalter ange- 
schlossen. Liegt diese auch 
noch auf dem Boden, läßt sich 
mit einem einfachen Fußdruck 
die gesamte beschriebene 
Hardware (auch Drucker) ein- 
schalten. Vorsicht ist allerdings 
bei älteren Fernsehgeräten ge- 
boten. Diese vertragen es teil- 
weise nicht, wenn die Netzspan- 
nung direkt und nicht über den 
eingebauten Schalter gesteuert 
wird. 
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2. Am Floppy-Disk-Laufwerk 
wird normalerweise kein Scha- 
den entstehen. Disketten kön- 
nen aber theoretisch durch die 
plötzliche Spannungsspitze im 
Gerät teilweise gelöscht wer- 
den. Uns ist das bisher auch 
noch nicht passiert, trotzdem 
sollte hier Vorsicht geboten sein. 

3. Es gibt verschiedene Ver- 
sionen des 64er. Die Unterschie- 
de sind allerdings minimal und 
treten nur vereinzelt a 
gıbt es mehrere Ausfi rungen 
der CPU, was sich bei einigen 
sogenannten »illegealen Opco- 
des«, also eigentlich nicht vorge- 
sehenen Maschinenbefehlen 
bemerkbar macht. Äuch die 
Bus-, Sound- und Videobaustei- 
ne werden in verschiedenen, 
aber fast identischen Versionen 
gefertigt. 

4. Das sollte man tunlichst un- 
terlassen. Gerade die Busbau- 
steine in der 1541-Floppy sind da 
sehr empfindlich. Besonders ge- 
fährlich sind hier statische Aufla- 
dungen. Wer beim Umstecken 
seine Floppy zerstört, weil er in 
geladenem Zustand die Ports 
berührt, der darf mit Reparatur- 
kosten bis zu 100 Mark und mehr 
rechnen. Das gleiche gilt für 
Computer (Serieller Bus, Data- 
setten-Anschluß, Userport und 
sogar Joystickanschluß) und 
Drucker. 


Von Basic zur 
Maschinensprache? 


Ist es möglich, ein Basic- 
Programm mit Hilfe eines Ma- 
schinenprogramms in ein Ma- 
schinenprogramm zu verwan- 
deln? Wenn ja, womit? 

Frank Wild 


Solche Programme gibt es tat- 
sächlich. Sie heißen »Basic- 
Compiler«. Ein solcher Compi- 
ler übersetzt ein Basic-Pro- 


gramm in Maschinensprache, 
die der Computer direkt verste- 
hen und ausführen kann. Derart 
übersetzte Programme sind da- 
her um einiges schneller als ent- 
sprechende reine Basic-Pro- 
gramme. Einen ausführlichen 
Test verschiedener Basic-Com- 
piler für den C 64 finden Sie in 
den 64der-Ausgaben 2/85 und 
4/85. 


Was ist der MSE? 


Ich verstehe den Aufbau der 
MSE-Sprache nicht. Warum sind 
in einer Zeile jeweils neun ver- 
schiedene Befehle? 

Tim Wensky 


»MSE« ist keine eigene Com- 
putersprache, sondern nur ein 
Eingabesystem für Programme 
in Maschinensprache Diese 
werden in einer besonderen 
Form als »Hexadezimalzahlen« 
abgedruckt. Dieses Zahlensy- 
stem ist nicht wie die uns geläufi- 
geren Dezimalzahlen aufder Ba- 
sis 1D aufgebaut, sondern auf 
der Basis 16. Als zusätzliche Zif- 
fern werden dabei einfach die 
ersten Buchstaben des Alpha- 
bets genommen. Statt dezimal ... 
8,9,10,11,12,13,14,15,16,... wird he- 
xadezimal folgendermaßen ge- 
zählt: ...8,9,A,BC.DE,F;10.... 

Jeweils zwei Hexadezımalzif- 


Onmismasüsen ein »Byte«, also eine 


Zahl zwischen O0 und 255 (hexa- 
dezimal 00 und FF). Ein Byte ent- 
spricht also dem Inhalt einer 
Speicherzelle oder auch einem 
Maschinenbefehl. In einer MSE- 
Zeile stehen jeweils acht Pro- 
gramm-Bytes. Die letzte Zahl ist 
eine Prüfsumme. Sie wird ver- 
wendet, um Fehleingaben in ei- 
ner Zeile weitgehend auszu- 
schließen. 

Bitte lesen Sie beim Abtippen 
von MSE-Programmen die zuge- 
hörige Bedienungsanleitung be- 
sonders aufmerksam durch. 
Versuchen Sie insbesondere 
nie, mit dem MSE eingegebene 
Programme einfach mit LOAD 
zu laden und mit RUN zu starten. 
Vielmehr müssen Sie MSE- 
Programme (wie alle Maschıi- 
nenprogramme) mit»LOAD ”na- 
me” ,8,l« laden. 


63299 Bytes free? 


Ich habe den Tip bekommen, 
daß die Befehlsfolge »POKE 
56,255 : SYS 58234« beim VC' 20 
einen freien Speicherplatz von 
über 61000 Bytes ergeben soll. 
Ich habe nun diese Befehlsfolge 
auf meinem C 64 eingegeben 
und erhalte tatsächlich nach 
der Abfrage »PRINT FRE(0) + 
2116« die Antwort »6322%«. 

Sind diese 63229 Bytes wirk- 
lich frei zum Programmieren 
und wird dadurch auch keine 
andere Funktion beeinflußt? 

Torsten Niek 


Na, da hat Sie aber wirklich ei- 
ner an der Nase herumgeführt. 
Der POKE-Befehl setzt zwar (al- 
lerdings nur rein rechnerisch) 
die Speichergrenze für den 
Basic-Interpreter nach oben, 
aber sonst tut sich überhaupt 
nichts. Sie haben weiterhin ihre 
knappen 33 KByte Basic- 
Speicher, weil Sie mit einem 
POKE-Befehl schwerlich 
Hardware-Aufbau und Betriebs- 
system eines Computers ändern 
können. Im Gegenteil, wenn Sie 
versuchen mit Variablen zu ar- 
beiten, kann das sogar zu einem 
Absturz des Computers führen, 
weil dieser verzweifelt versucht, 
Variableninhalte im ROM abzu- 
legen. Dies kann natürlich nıcht 
gut gehen. 

Der SYS-Befehl hinter dem 
POKE ist übrigens reine Augen- 
wischerei, denn der bewirkt nur 
einen Sprung in die NMI-Routi- 
ne, also dasselbe, was beim 
Drücken der Tastenkombination 
RUN/STOP-RESTORE passiert. 

Eine Möglichkeit, noch mehr 
Basic-Speicher zu erhalten, ist 
die Verwendung von speziellen 
Erweiterungen wıe das Busi- 
ness-Basic-Moduls von Kingsoft. 
Einen Test hierzu finden Sie in 
dieser Ausgabe. 


Graphics Basic 
verschenken? 


Ich interessiere mich für »vGra- 
phics Basic« zum C 64 und habe 
deshalb folgende Fragen: 

I. Kann man jetzt, nachdem die 
Herstellerfirma HES Konkurs 
gemacht hat, Kopien von Gra- 
phics Basic unter Freunden ver- 
teilen oder sogar an Außenste- 
hende verkaufen ? 
2. Wo kann man das Handbuch 
zu Graphics Basic zwecks Infor- 
mation bestellen? 

Markus Emmert, Sven Schal 


l. Gegenfrage: Wenn das 
Volkswagenwerk Konkurs ange- 
meldet hätte, würden Sie dann 
nach Wolfsburg fahren, sich ein 
paar Golfs aus dem Lager holen 
und die Fahrzeuge unter Freun- 
den verteilen oder an Außenste- 
hende verkaufen ? 

Also nochmals in aller Deut- 
lichkeit: Sie dürfen fremde Soft- 
ware, egal ob tatsächlich kom- 
merziell vertrieben oder nicht, 
nicht ohne ausdrückliche Ge- 
nehmigung des Urhebers kopie- 
ren und an andere Personen 
weitergeben. Wenn Sıe das Ori- 
ginal haben, dürfen Sie davon 
zwar Kopien anfertigen, aber 
ausschließlich für den eigenen, 
privaten Gebrauch (Sicherheits- 
kopien). Sie dürfen derartige Ko- 
pien nicht verkaufen, tauschen 
oder verschenken. 

2. Da Graphics Basic in 
Deutschland nicht mehr vertrie- 
ben wird, ist auch das Hand- 
buch nicht mehr erhältlich. 


3arl8 


ıe.de 
e.net 


| 


LIE 


ee 


ah 


ehe 














C 128 


Hardware-Test 


Erster ausführlicher Test: C 128 


In der 
letzten 


Ausgabe Teil E 


haben wir Ihnen 

die Eigenschaften und 
Möglichkeiten des C 128 
vorgestellt. 

Diesmal sollen Sie 


erfahren, was alles 

im C 128 und dem 
neuen Diskettenlaufwerk 
1571 zu finden ist, 

und wie es um das 
Betriebssystem CP/M 

im 128er bestellt ist. 


ild 1 zeigt die Platine des © 128. 
B::::: unten finden Sie die 
wichtigsten Bausteine der gan- 
zen Platine: den 8502-Prozessor und 
den Z80. Der 8502 wurde von Com- 
modore/MOS für den © 128 gebaut. 
In seinen Funktionen entspricht er 
dem 6510 aus dem C© 64. Allerdings 
kann er mit 2 MHz getaktet werden, 
doppelt so schnell wie der 6510. 
Durch den Z80 »versteht« der C 128 
auch CP/M-Programme. Sie können 
dadurch auch Programme wle 
Wordstar und Sprachcompiler (Pas- 
cal, Cobol und Ada) verwenden. 
Rechts unten befindet sich das 
Gedächtnis des C 128: der 128- 
KByte-RAM-Speicher. 128 KByte 
RAM erhält man durch Parallel- 
schaltung von sechzehn 8 KByte/ 
8 Bit RAMs. 


C 128-Hardware — 
Bewährtes und Neues 


Gleich oberhalb der RAMs finden 
Sie die vier Betriebssystem-ROMs 
mit je 16 KByte. Im freien Steckplatz 
für ein 32-KByte-ROM wird in der 
deutschen C 128-Version ein deut- 
scher Zeichensatz untergebracht 
sein. Sie können dort aber auch ei- 
gene Betriebssysteme einstecken. 

Neben den ROMs, die Bildgene- 
ratoren: Der RGB-Controller und 
der ausdem C 64 bekannte VIC, der 
für den C 128 leicht überarbeitet 
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Bild 7. Ein »Röntgenblick« durch den C 128 


wurde. Normalerweise befindet 
sich über den beiden Video-Chips 
ein AbscHhtHibl&eh-NWEBEriso über 
dem Modulator, der ein Hochfre- 
quenzsignal zum Anschluß eines 
Fernsehers erzeugt. Im 2-MHz-Mo- 
dus löst der RGB-Controller den 
VIC, der nur mit 1 MHz arbeiten 
kann, ab. 

Rechts neben der »Bildstelle« be- 
findet sich der Sound-Chip, der SID 
Er ist identisch mit dem 6581 aus 
dem C 64. Etwas weiter rechts liegt 
die MMU, die Memory Manage- 
ment Unit. Erst mit der MMU kann 
ein 8502-Prozessor 128 KByte Spei- 
cher mittels Bank-Switching verwal- 
ten. 

Die PLA (Programmable Logic 
Array, vom Hersteller programmiıer- 
bare Logikschaltung) und die CIAs 
(Complex Interface Adapter, hier 
zur Steuerung von Aus- und Eingän- 
gen ) haben im C 128 fast die gleı- 
chen Aufgaben wie im C 64. So ver- 
waltet die PLA den ROM-Speicher- 
aufbau. Sie selektiert die vom Pro- 
zessor benötigten ROMs im Compu- 
ter und EPROMs auf einer eventuel- 
len Erweiterungskarte Die 6526- 
CIlAs, Commodore/MOS-Entwick- 
lungen, regeln alles, was an Daten in 
den C 128 hinein- und hinausgeht. 
CIA 1 übernimmt die Auswertung, 
welche Taste der Tastatur gedrückt 
wurde und teilt dem Prozessor mit, 
in welche Richtung ein Joystick 
weist. CIA 2 steuert die Ein-und Aus- 


gänge des User-Ports und des se- 
riellen IEC-Bus. 

Bild 2 zeigt das Blockschaltbild 
des C 128. Im folgenden soll kurz 
der Aufbau des Systembusses er- 
läutert werden. 

1. Der Prozessor-Bus 

Als Prozessorbus bezeichnet man 
den Adreß- und Datenbus. Der 
Adreßbus umfaßt 16 Leitungen AO 
bis Al5, der Datenbus 8, DO bis D7. 
Wie Sie ja sicherlich wissen, muß 
beim C 64 ein Datum (POKE-Wert) 
innerhalb des Wertebereichs von 0 
— 255 liegen. Aber nichtnur beim C 
64, sondern bei allen 8-Bit-Compu- 
tern, da 255 die größte mit 8 Bit dar- 
stellbare Zahl ist. Essind deshalb 16 
Adreßleitungen nötig, damit ein 8- 
Bit-Computer 65536 Speicherstellen 
(64 KByte) ansprechen kann. Beide 
Bussysteme stellen die Verbindung 
des Prozessors mit den ROMs, 
RAMs und V/O (Input/Output)-Bau- 
steinen her. Der Prozessorbus dient 
sowohl dem 8502, als auch dem Z80. 
Damit der Z80, der mit 4 MHz getak- 
tet wird, mit dem 2 MHz-Bussystem 
arbeiten kann, wurde ihm eine ent- 
sprechende Interface-Schaltung 
»verpaßt«. Diese Schaltung sorgt da- 
für, daß der Z80 nur mit 2 MHz getak- 
tet wird, wenn er auf den Bus zu- 
greift. 

2. Der Translated Adress Bus 

Dieses Bussystem wird von der 
MMU generiert. Das System besteht 
nur aus den höherwertigen Adreß- 
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leitungen TA8 bis TAIS. Diese 
Adreßleitungen benötigt der VIC- 
Chip zum Zugriff auf das Zeichen- 
satz-ROM. Dazu legt die MMU TA8 
bis TAll, während der VIC arbeitet, 
auf einen Trı-State-Pegel, damit der 
VIC-Chip diese Leitungen für sich 
nutzen kann, als VA8 bis VAI5. Das 
ermöglicht erst den VIC das gesam- 
te Zeichen-ROM zu adressieren. Ein 
Zeichen besteht aus 8 Byte, der Zei- 
chensatz umfaßt 256 Zeichen, insge- 
samt also 2048 Byte. Mit acht Leitun- 
gen könnte der VIC aber nur 256 By- 
te adressieren. Um aber 2048 Spei- 
cherplätze adressieren zu können, 
stellte eben die MMU dem VIC 
noch drei Tr-State-Leitungen zur 
Verfügung. Schaltet ein Baustein ei- 
ne Leitung auf Tri-State-Pegel, ent- 
spricht das einer Leitung die in»der 
Luft hängt« Technisch wird dazu 
einfach ein sehr hochohmiger Ab- 
schlußwiderstand in die Leitung ge- 
schaltet. 

Eine andere Funktion des Transla- 
ted Adress Bus ermöglicht das Ar- 
beiten des Z80 auf dem 8502-Bussy- 
stem. Im Z80-Modus wird zu jeder 


Adresse von Bank 0 aus dem Be- 
reich von $0000 bis $0FFF $D000 ad- 
diert, damit der Z80 auf das CP/M- 
BIOS zugreifen kann. Normalerwei- 
se liegt ja bei CP/M das BIOS ım Be- 
reich von $D000 bis $DFFF im RAM- 
Speicher. Da aber die ganze C 128- 
Organisation 8502-spezifisch ıst und 
deshalb das BIOS in Bank 0 von 
$0000 bis $OFFF untergebracht ist, 
ist eine Konvertierung der Adressen 
von $D000 bis $DFFF auf $0000 bis 
$OFFF nötig. Und zwar immer dann, 
wenn vom Z80 auf das BIOS zuge- 
griffen wird. Die Adreßkonvertie- 
rung findet nur in Bank 0 statt, nicht 
in Bank 1. Hier befindet sich die nor- 
male 8502-System-Zeropage. 
Der Multiplexed Adress Bus 

Dieses Bussystem sichert die Zu- 
sammenarbeit des VICs mit dem 
Prozessor. Welche Daten über wel- 
che Leitungen fließen, bestimmt das 
MUX-Signal. Es wird von der MMU 
über die PLA erzeugt. Da die Erklä- 
rung der Funktion des Multiplexed 
Adress Bus hier zu weit führen wür- 
de, nur einen Umnß: Er wird vom 
Prozessor zur Ädressierung der ber- 


den RAM-Bänke gebraucht, zur 
Adressierung der VIC-Register und 
für Zugriffe des VIC auf das Farb- 
RAM und das Zeichensatz-ROM.. 
Zumneuen Computer gibtesauch 
ein neues Floppy-Laufwerk, die 
1571, die wir auch unter die Lupe 
nahmen. Zum Test standen leider 
keine Unterlagen zur Verfügung. 


Das 1571-Laufwerk 


Genaue Aussagen können wir 
über die Ladegeschwindigkeiten im 
C 128- und © 64-Modus geben. Im © 
64-Modus hat sıch nichts gegenüber 
der 1541 geändert, im 128er-Modus 
ist das Laufwerk allerdings T7- bis 
8mal so schnell. So benötigt beı- 
spielsweise ein Hires-Bild (33 Blök- 
ke auf Diskette) ganze 3,2 Sekunden 
Ladezeit. Der Bildschirm wird wäh- 
rend desLadens nicht abgeschaltet. 

Auch das Formatieren geht sehr 
viel schneller als vorher: Ganze 40 
sekunden werden zum doppelseiti- 
gen Formatieren einer Diskette be- 
nötigt. Danach stehen 1328 Blöcke 


Composite-Video-Teil. Rechts der VIC 8564, der 
dem VIC aus dem C 64 beinahe identisch ist. 
Er enthält einen eigenen Grafikprozessor. 


HF-Modulatda WEI 
Hier wird ein Hochfrequenz-Bildsignal 
erzeugt, das ein normaler Fernseher »versteht«. 


error: entspricht dem des C 64. Er 
dient zur 40-Zeichen- und Grafikdarstellung. 


Der serielle Port des C 128 entspricht dem des C 64. 


RGB-Teil. Links der 80-Zeichen-Videocontroller 8563 (RGB). IM OS MARS Stheitster aber etwa Smalsschnallar 


Rechts unten, das 16-KByte/8-Bit-Video-RAM für den 8563. 


Der RGB- "Ausgang ist kompatibel zu IBM-Farb- und 
Schwarzweiß-Monitoren. 
Die 80-Zeichendarstellung geht nur über diesen Ausgang. 


User-Port 


Kassetten-Port 


Expansion-Port für den 
C 64- und C 128-Modus. 


Netzteilanschluß 


CIA 2. /O-Baustein für 
den User-Port und den 
seriellen Bus 


32 KByte ROM. 
Frei für eigene ROMs. 


16 KByte ROM. C 128, 


Ein-/Ausschalter 


Reset-Taster 


Die MMU bestimmt auf 
welchen Speicherteil der 
nächste Zugriff stattfinden 
soll. 


Betriebssystem (Kernal) und 
40/80-Zeicheneditor 
Betriebssystem- und Basic- 
ROM für den C 64-Modus. 
16 KByte ROM 

16 KByte ROM. C 128, 

Basic Teil 2 

16 KByte ROM. C 128, 

Basic Teil 1 


Fe Control-Port 1 und 2 
(m zum Änschluß von 
s a Joysticks etc. 


Entprell-Kondensatoren für 
Tastatur und Control-Ports 


ÄAnschlußleiste 


128 KByte ROM. für die Tastatur 


16 8-KByte/ 
8-Bit-RAMs 


m. 
zei 
CIA | (Complex Interface Adapter), ein 6526 


von Commodore/MOS. Die Schaltung wird zum 
»Anschluß« der Tastatur und der Joysticks benötigt. 


rer reg --. u s - = rn - 2 
>} ul = De A LE DIR Sa, rn SEP ie 3 en a a nF a” bihemg 2 


2 KByte-Zeichensatz-ROM Der inzwischen 

schon altbekannte 

SID, der 6581 aus 
6 


2-KByte/8-Bit-CMOS-RAM. Der Farbspeicher für den VIC 8564 dem C 64 


Ohne ihn wäre kein CP/M denkbar: Der Z80-Prozessor. 


Die PLA, ein 8721. Die PLA ist ein Gatterbaustein mit programmierbaren Logikfunktionen. Das Herz des C 128- und C 64-Modus: Der 8502-Prozessor. 


Sie bestimmt, neben der MMU, welche ROMs aktiviert werden. 





Bild 1. Die Platine des C 128. Das Abschirmblech des RGB- und Composite-Videoteils wurde abgenommen. Ebenso das des Modulators. 
Über der gesamten Platine liegt nochmals ein Abschirmdeckel, der auch als Kühlkörper für die ICs verwendet wird. 
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Die Schreib-/Lese-Mechanik. 

Im Gegensatz zur 1541 sind zwei Köpfe 
vorhanden, die eine Diskette beidseitig 
beschreiben und lesen können. 


WD1770-Controller. 
Er wird mit einem 
entsprechenden 
Utility-Programm so 
programmiert, daß 
die Floppy-Station 
CP/M-Disketten von 
anderen Computern 
lesen kann. 


251828-Controller 


Port-Anschlüsse 


DIP-Schalter. 

Hier kann die Floppy 

auf verschiedene 

Geräteadressen 

umgeschaltet werden. 
6522-VIA. 
Programmierbarer Ein-/ 
Ausgabe-Baustein für 
den seriellen Bus. 


DOS-ROM, das 
Betriebssystem der 1571 


2-KByte/8-Bit-RAM. Der 
»Floppyspeicher«, der 


auch von Ihnen gentem, OnNLmaes: 


Hardware-Test 


6522-VIA. 
I/O-Baustein 
für den 
Controller 


6502-Prozessor, 
der der 1571 die 
»Intelligenz« gibt. 


6526-CIA. 

Dieser Baustein regelt, 
wie im C 64 und C 128 
auch, die Speicherzugriffe. 


Bild 3. Das Innenleben des 1571-Floppy-Laufwerks. 
Im vorderen Teil die ganze Mechanik zur Steuerung 
des Schreib/Lesekopfes, im hinteren die Elektronik, 

die normalerweise vom Netzteil verdeckt ist. 


werden kann. 


zur freien Verfügung, also die dop- 
pelte Speicherkapazität einer 1941- 
formatierten Diskette. Noch eins fällt 
beim Formatieren auf: das Rattern 
entfällt. Den Grund dafür entdeck- 
ten wirnach dem Aufschrauben der 
1571: Der mechanische Anschlag 
zur Kopfpositionierung wurde durch 
eine Lichtschranke ersetzt. Die Me- 
chanik macht allgemein einen sehr 
guten und stabilen Eindruck. Inter- 
essant ist auch, daß eine weitere 
Lichtschranke zur Abfrage des In- 
dexloches vorhanden ist. Alle 
Schreib/Lesevorgänge funktionier- 
ten nämlich auch mit Disketten, die 
kein Indexloch hatten. Eine Ausnah- 
me könnte der CP/M-Modus sein, 
wenn Disketten anderer Formate 
verwendet werden. Dies konnten 
wir aber mit dieser Version nicht te- 
sten, da der Floppy-Controller noch 
nicht auf andere Diskettenformate 
programmiert werden konnte. 

Auch die Elektronik zeigt sich von 
einer guten Seite. Auf der sehr sau- 
ber aufgebauten Platine sind ge- 
genüber der 1541 einige Chips hin- 
zugekommen, über deren Funktion 
teilweise nur spekuliert werden 
konnte. So ist zum Beispiel eine 
6526-CIA und ein WDI770-Control- 
ler vorhanden (Bild 93). 


Das alte 1541-Problem der Wär- 
meabfuhr wurde bei der 1571 ge- 
löst. Das ohnehin schon recht »kalte« 
Netzteil ist völlig von der Floppyme- 
chanik getrennt. Es können also 
kaum mehr Schreib/Leseprobleme 


auftreten, die auf eine Wärmeleı- : 


tung vom Netzteil auf die Floppyme- 
chanik zurückzuführen sind. 

Wie der © 128 hat auch das Flop- 
py-Laufwerk einen Modus, der ein 
früheres Commodore-Gerät, die 
1541, simulieren soll. Hier gab's, zu- 
mindest bei unserer Vorabversion, 
noch einige Probleme. Es ist des- 
halb die Serienversion abzuwarten, 
will man ein endgültiges Urteil ab- 
geben. Eine Kleinigkeit ist uns noch 
sehr positiv aufgefallen: An der 
Rückseite befinden sich zwei kleine 
DIP-Schalter, mit denen die Geräte- 
adresse der Floppy auf Werte zwı- 
schen 8 und ll geändert werden 
kann. Es wird also auch für absolute 
Anfänger ein problemloser Betrieb 
mit mehreren Laufwerken möglich 


Der CP/M-Modus 


Der C 128 ist der erste Commodo- 
re-Computer, der von Haus aus be- 
reits CP/M-fähig ist. Mit diesem Be- 
triebssystem steht dem Anwender 





die ganze Welt der CP/M-Software 
zur Verfügung, was insbesondere 
beim mehr professionell orientier- 
ten Anwender ein starkes Argument 
für den C 128 darstellen dürfte. Al- 
lerdings wurde dieser Vorteil, wie 
beschrieben, mit einem immensen 
technischen Aufwand erkauft. Wäh- 
rend ein reiner Z80-Computer mit 
CP/M in der Regel überhaupt keine 
Probleme hat (System in den SpeI- 
cherladen — fertig), sind beim © 128 
eine Vielzahl soft- und hardware- 
mäßiger Probleme zu lösen. 

Bei dem uns zur Verfügung ste- 
henden Testgerät war denn auch 
das CP/M-System noch nicht in der 
endgültigen Version implementiert. 
Insbesondere die Ladegeschwin- 
digkeit unter CPY/M ließ noch sehr zu 
wünschen übrig. Die Ladezeit für 
das CP/M-System selbst betrug in 
der (vorläufigen) Version ziemlich 
genau 45 Sekunden. In der endgülti- 
gen Version wird die Geschwindig- 
keit allerdings deutlich höher lie- 
gen, so daß ein sinnvolles Arbeiten 
möglich wırd. 

Wer bisher nur mitdem C 64 gear- 
beitet hat, dem stehen bei der Um- 
stellung auf eine CP/M-fähige Ma- 
schine natürlich einige Umstellun- 
gen bevor. 
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Die Bezeichnung CP/M steht für 
»Control Program for Microcompu- 
ters«, also einfach für ein — inzwi- 
schen weitverbreitetes — Betriebs- 
system für Mikrocomputer. CP/M 
wurde bereits 1974 von Gary Kildall 
bei Intel entwickelt und diente ur- 
sprünglich als Dateiverwaltungs-Sy- 


Was ist CP/M? 


stem für einen von Intel vertriebe- 
nen Compiler für die Programmıer- 
sprache PL/M. Seit 1975 wird CP/M 
als allgemeines Betriebssystem 
kommerziell angeboten und ständig 
weiterentwickelt. Das Erfolgsrezept 
von CP/M heißt »Standard«. 

Da jeder Hersteller eines Mikro- 
computers in der Regel sein eige- 
nes Betriebssystem einbaut, erge- 
ben sich sehr große Probleme bei 
der Übertragung von Programmen 
und Daten zwischen verschiedenen 
Computern. Wer schon einmal ver- 
sucht hat, ein VC 20-Programm an 
den C 64 anzupassen (oder umge- 


CodeFunktion 
System-Kaltstart 
Zeichen von Tastatur holen 
Zeichen auf Bildschirm ausgeben 
Zeichen von externem Gerät 
holen 
Zeichen an externes Gerät 
senden 
Zeichen an Drucker senden 
Direkte Ein-/Ausgabe über 
Konsole 
I/O-Zuordnung holen 
I/O-Zuordnung festlegen 
String auf Bildschirm ausgeben 
String von Tastatur einlesen 
Feststellen, ob Taste gedrückt 
Liefert Versionsnummer des 
CP/M-Systems 
Reset des Diskettensystems 
Laufwerk auswählen 


Datei öffnen 

Datei schließen 

Datei auf Diskette suchen 
Zweite Datei suchen 


Datei löschen 
Nächsten Block lesen 
Nächsten Block speichern 
Neue Datei erzeugen 
Dateinamen ändern 
Angesprochene Laufwerke 
feststellen 
Aktuelles Laufwerk feststellen 
DMA-Pufferadresse festlegen 
Bit-Map-Adresse holen 
Schreibschutz setzen 
Schreibschutzinformation holen 
Datei-Attribute setzen 
File-Parameter-Ädresse holen 
USER-Nummer setzen 
Daten von Diskette lesen 
: Daten auf Diskette schreiben 
Dateigröße feststellen 
Datensatzadresse holen 





kehrt), der weiß, wovon hier die Re- 
de ist. 

Das CP/M-Betriebssystem tritt 
nun als Vermittler zwischen Änwen- 
derprogramm und Hardware auf. 
Beispielsweise fragt ein CP/M-Pro- 
gramm niemals die Tastatur direkt 
ab, denn die kann Ja infolge unter- 
schiedlicher Hardware von Compu- 
ter zu Computer anders konzipiert 
und angesteuert sein. Statt dessen 
ruft das Anwenderprogramm eine 
Routine im CP/M-System auf, die die 
gewünschte Funktion ausführt. Na- 
türich muß das CP/M-System für 
jeden Computer an die spezielle 
Hardware angepaßt werden, aber, 
und das ist das Entscheidende, die 
Anwenderprogramme laufen un- 
verändert, da sie Ja nicht direkt auf 
die Hardware zugreifen. 

Da alle CP/M-Programme gene- 
rell im gleichen Speicherbereich 
liegen, treten kaum Probleme bei 
der Übertragung von einer CP/M- 
Maschine zur anderen auf. 


 Grundvoraussetzung für die 
Übertragbarkeit von Software ist al- 
lerdings die Verwendung des dlei- 
chen Mikroprozessors ın allen CP/ 
M-Computern. Die Wahl fiel bei In- 
tel nicht schwer: Der 8080 aus dem 
eigenen Hause wurde zum CP/M- 
Prozesöt@e Kirt-Deft3jimeß hal- 
ber muß man allerdings zugeben, 
daß der 8080 damals (Mitte der sieb- 
ziger Jahre) tatsächlich einer der leı- 
stungsfähigsten Mikroprozessoren 
überhaupt war. 


Heutzutage wird allerdings fast 
ausschließlich der Z80 verwendet, 
der voll aufwärtskompatibel zum 
8080 ist, aber über einen stark er- 
weiterten Befehlsvorrat und mehr 
interne Register verfügt. Wer sich 
ernsthaft für CP/M interessiert, der 
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(C128 


sollte sich daher mit diesem Prozes- 
sor vertraut machen. 


Der Z80-Prozessor 


Im Gegensatz zur 6502-Prozessor- 
familie (zu der auch der 6510 ım © 64 
und der 8502 im © 128 gehört) han- 
delt es sich beim Z80 ebenso wie 
beim Vorgänger 8080 um eine soge- 
nannte »registerorientierte CPU«. 
Das bedeutet, daß der Z80 über eı- 
ne größere Anzahl interner Register 
verfügt, die sowohl als Daten- wie 
auch als Adreßregister benutzt wer- 
den können (Bild 5). 

Insgesamt stehen dem Benutzer 
sechs allgemeine 16-Bit-Register 
(BC, DE, HL, BC’, DE‘, HL) zur Verfü- 
gung, die wahlweise auch als zwölf 
8-Bit-Register angesprochen wer- 
den können. Daneben gibt es zwei 
Akkusund ebenfalls zwei Flag-Regi- 
ster, zwei 16-Bit-Indexregister (IX 
und IY), einen 16-Bit-Stackpointer 
(SP) und natürlich einen Programm- 
zähler (PC). Zwei weitere Register, 
das Interrupt-Vektor-Register I und 
das Refresh-Kontroll-Register R ha- 
ben spezielle Funktionen. 

Die Register AF, BC, DE und HL 
bilden die sogenannten Primärregı- 
ster, die vom 8080 übernommen 
wurden und die in erster Linie di- 
rekt angesprochen werden können. 
Mit speziellen Befehlen kann zwi- 
schen diesen Primärregistern und 
den »Sekundärregistern« AF\, BC), 
DE’ und HL umgeschaltet werden. 
Die Indexregister IX und IY haben 
ähnliche Aufgaben wie die 6502-Re- 
gister X und Y, sind jedoch 16 Bit 
breit. 

Der Z80-Befehlssatz ist sehr um- 
fangreich und umfaßt unter ande- 
rem auch 16-Bit-Arithmetik, Block- 
verschiebebefehle automatische 
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Bild 4. Die Tastatur ist funktionell und ergonomisch aufgebaut. Der deutsche Zeichensatz 
wird durch die Umschalttaste ASCII/DIN erreichbar. Die Belegung der Tasten entspricht 
dann den DIN-Normen. Die Bezeichnungen sind bereits auf den Tastenkappen auf- 
gedruckt. Durch diesen Zeichensatz ergibt sich teilweise eine fünffache Belegung einzelner 
Tasten. Doch diese Tatsache wird dann gerechifertigt, wenn es speziell auf den deutschen 
Markt zugeschnittene Textverarbeitungsprogramme geben wird (und vielleicht auch einen 
Drucker von Commodore, der die deutschen Umlaute von Haus aus beherrscht). 
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Such- und Ein/Ausgabebefehle, be- 
dingte Unterprogrammaufrufe so- 
wie Einzelbitbefehle Insgesamt 
kennt die Z80-CPU über 700 Opco- 
des. Um diese vielen Maschinenbe- 
fehle verschlüsseln zu können (mit 
einem Befehlsbyte können nur 206 
Befehle codiert werden), gibt es ei- 
nige spezielle »Umschaltopcodes«, 
die einfach bewirken, daß der Z80 
intern auf eine andere Befehlstabel- 
le umschaltet und das nächste Be- 
fehlsbyte in einer anderen Form ıIn- 
terpretiert. 

Nach diesem kurzen Ausflug zum 
Z80 jetzt jedoch wieder zum CP/M- 
Betriebssystem. Beim Studium von 
Handbüchern und CP/M-Literatur 
stößt man immer wieder aufvier Äb- 
kürzungen: BIOS, BDOS, CCP und 
TPA. Hinter diesen Bezeichnungen 
verbergen sıch die wichtigsten Be- 
standteile eines CP/M-Systems. 

BIOS steht für »Basıc Input Output 
System«, hat aber absolut nichts mit 
der Programmiersprache Basıc zu 
tun. Die Bezeichnung deutet ledig- 
lich an, daß es sich hierbei um eine 
Sammlung grundlegender Routinen 
zur Ein-/Ausgabe von Daten handelt. 

Das CP/M-BIOS entspricht von 
der Funktion her ziemlich genau 
den Kernal-Routinen bei Commodo- 
re-Computern. Der gesamte Kon- 
takt eines Anwenderprogramms mit 
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der Hardware-Umgebung läuft 
über diese Routinen. Alle BIOS-Rou- 
tinen werden indirekt über das 
BDOS, das Basic Disk Operating Sy- 
stem, durchgeführt. Der Aufrufaller 
Systemroutinen geschieht durch ei- 
nen Uhnterprogrammsprung zur 
Adresse 5, demsogenannten BDOS- 
CALL. Die verschiedenen geforder- 
ten Funktionen werden dadurch se- 
lektiert, daß ım C-Register des Z80 
ein Funktionscode übergeben wird. 
Die Routine ab Adresse 5 verzweigt 
dann abhängig vom Inhalt des C-Re- 
gisters zu den verschiedenen BIOS- 
Funktionen (Tabelle )). 

Diese beiden Teile des CP/M-Sy- 
steems, BIOS und BDOS, werden 
beim »Booten«, also beim Laden des 
Systems von der Diskette, einmal in 
den Speicher geholt und bleiben 
dann ständig resident vorhanden. 

Für den Kontakt zwischen CP/M 
und Anwender sorgt der »Console 
Command Processor« (CCP). Es 
handelt sich dabeı um einen einfa- 
chen Kommando-Interpreter, der 
über die Tastatur eingegebene 
CP/M-Kommandos erkennt und 
ausführt. Mit CYM-Kommandos hat 
es dabei eine besondere, grundle- 
gende Bewandtnis. Hierzu ist es 
wichtig zu wissen, daß Dateinamen 
unter CMS | teil beste- 


hen, der eigentlichen Dateibezeich- 


chirm- 
Editor 


Bild 2. Blockschaltbild des C 128. 


nung (acht Zeichen Länge) und der 
Namenserweiterung ($Extension«, 
drei Zeichen Länge). Diese Erweite- 
rung, die durch einen Punkt vom ei- 
gentlichen Namen abgetrennt wird, 
gibt den Typ der Datei an. 


Kommandostruktur 


Besonders wichtig ist der Dateityp 
»COM«. Wenn ein Dateiname die Er- 
weiterung COM hat, dann stellt sie 
ein CPM-Kommando dar. Das funk- 
tioniert folgendermaßen: Wenn der 
Benutzer ein Kommando eingibt, 
dann sucht der CCP auf der Disket- 
te nach einer COM-Dateı, die den 
Namen des Kommandos trägt. Die- 
se Datei wird dann geladen und ge- 
startet, mit anderen Worten, die Da- 
tei ist das Kommando. 

Will man beispielsweise das Di- 
rectory der Diskette sehen, dann 
gibt man den Befehl DIR ein. Der 
CCP sucht, lädt und startet darauf- 
hin das Programm »DIRCOM«, das 
wiederum das Inhaltsverzeichnis 
der Diskette ausgibt. Derartige 
Kommandos heißen  »transiente 
Kommandos«, weil sie eben nicht 
fest eingebaut sind, sondern nur bei 
Bedarf geladen werden. Der für 
transiente Kommandos reservierte 
Speicherbereich heißt »Transient 
Program Area« (TPA), womit auch 
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Hier sehen Sie, wie die Bauteile der Platine prinzipiell verschalten sind. 
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Sekundärregister 


Interruptvektor- und 
Refreshregister 


Indexregister 


Stackpointer 


} Programmzähler Bild 5. Der Z80-Registersatz 


die vierte der oben angesproche- 
nen Abkürzungen geklärt wäre. Je- 
des CP/M-System verfügt auf der 
Systemdiskette über eine Standard- 
Bibliothek von wichtigen transienten 
Kommandos. Dazu gehören in der 
Regel Kommandos zum Andern von 
CP/M-Parametern, zum Kopieren, 
Löschen, Listen und Umbenennen 
von Dateien und ähnliches, was man 
zum sinnvollen Arbeiten mit einer 
Diskettenstation benötigt. 

Natürlich ist es möglich, diesen 
Befehlsvorrat zu erweitern, indem 
man entsprechende Assemblerrou- 
tinen schreibt oder auch einen Com- 
piler einsetzt. Einzige Bedingung 
für transiente Kommandos ist die 
Lauffähigkeit des Maschinenpro- 
gramms in der TPA. Generell sind 
alle CP/M-Anwenderprogramme 
transiente Kommandos. Das Text- 
verarbeitungsprogramm Wordstar 
heißt unter CP/M zum Beispiel 
»WSCOM«und wird einfach mitdem 
Kommando »WS« aufgerufen. 

Mit dem CP/M-Betriebssystem 
hat der C 128-Benutzer Zugriff auf 
das größte Softwareangebot der 
Welt. Immerhin werden bereits seit 
zehn Jahren CP/M-Programme ent- 
wickelt und immer weiter verbes- 
sert. Textverarbeitung, Datenban- 
ken, Tabellenkalkulation stehen in 
großer Auswahl ebenso zur Verfü- 
gung wie spezielle Branchenlösun- 
gen für den kommerziellen Einsatz. 
Statistik-Pakete, mathematische und 
naturwissenschaftliche Software ist 
in Mengen erhältlich. Wer selber 
programmieren will, der findet un- 
ter CP/M ein Angebot an Program- 
miersprachen, das von Fortran und 
Cobol über Pascal bis zu Ada und 
Lisp reicht. Unter CP/M gibt es so 
ziemlich alles, was auch auf Groß- 
rechnern läuft. 


22 5a 





SaEBild 6. 
Das neue 1571- 
Laufwerk präsen- 
tiert sich im 
Slime-Line-Format. 


Allerdings soll nıcht verschwie- 
gen werden, daß trotz Standard und 
Kompatibilität gewisse Probleme 
auftreten können. So muß CP/M- 
Software generell erst einmal an eı- 
nen speziellen Computer angepaßt 
werden. Das erledigt ein zu jeder 
Software gehöriges sogenanntes In- 
stallations-Programm, das zum Bel- 
spiel die Tastaturbelegung, Bild- 
schirmansteuerung etc. abfragt, um 
beispielsweise ein Textprogramm 
optimal auf den jeweiligen Compu- 
ter einstellen zu können. Dieser kleı- 
ne Arbeitsaufwand ist aber natür- 
lich gar nichts im Vergleich bei- 
spielsweise zur Aufgabe, etwa den 
Textomat oder Vizawrite an den VO 
20 anzupassen. 


Als Fazit darf festgehalten wer- 
den, daß dem C 128-Besitzer durch 
das CP/M-Betriebssystem ein riesı- 
ges Software-Potential zur Verfü- 
gung steht. Es ist zu hoffen, daß es 
zukünftig auch »schlüsselfertige«, al- 
so bereits an den C 128 angepaßte 
CP/M-Software geben wird, um 
dem Anwender die Mühen der In- 
stallation zu ersparen. Vor allem 


aber dürfte es von entscheidender 
Bedeutung sein, ob die Hersteller 
von CP/M-Software willens sind, die 
Preise für ihre Produkte, die sich 
teilweise noch im vierstelligen Be- 
reich befinden, drastisch zu senken. 


Die Chancen dafür stehen nicht 
schlecht, denn nachdem CP/M im 
professionellen Bereich inzwischen 
durch MS-DOS, ein 16-Bit-Betriebs- 
system, abgelöst worden ist, sollten 
die CP/M-Hersteller eigentlich 
schon an neuen Märkten interes- 
siert sein, und diese neuen Märkte 
könnten durchaus im oberen Home- 
Bereich liegen. Wenn die Software 
jedoch teurer als der Computer ist, 
dürfte wohl kein Geschäft zu ma- 
chen sein, aber beispielsweise 
Wordstar für 298 oder gar für 198 





Mark — das wäre doch wohl ein 
Renner. 
Schlußfolgerung 

Der C 128 ıst ein Zwitter. Bedingt 
durch die sicherlich löbliche Ent- 
scheidung von Commodore den © 
128 64er-kompatibel zu machen, er- 
gaben ssıch beidertechnischen Rea- 
lisierung natürlich einige umständl- 
che Lösungen. Die 8-Bit-Technologie 
ist bei Heimcomputern zwar noch 
weit verbreitet, dennoch zeigen ei- 
nige Konkurrenten mit 16-Bit-Prozes- 
soren wo der Weg auch bei »Klein- 
computern« hingehen wird. 

Auf der anderen Seite verfügt der 
C 128 bereits bei seiner Einführung 
über ein enormes Softwarepotential 
(C 64- und CP/M-Software). Der An- 
wender kann also aus dem Vollen 
schöpfen. Das wesentlichste Kauf- 
kriterium wird aber der Preis sein. 
Wünschenswert wäre jeweils ein 
Kaufpreis von deutlich unter 1000 
Mark für Computer, Floppy-Lauf- 
werk und Monitor. Bei den bisheri- 
gen Preisen kommt man sehr 
schnell über 3000 Mark, und in die- 
ser Kategorie gibt es Alternativen! 
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Drucker 





owohl Tintenstrahl- und Ther- 
modrucker haben mit den Na- 
del-Druckern eines gemein- 
sam: den Aufbau von Zeichen aus 
einzelnen Punkten. Beim Druck 
wird immer eine senkrechte Punkt- 
reihe (5-9 Punkte) auf einmal zu Pa- 
pier gebracht. Dann rückt der 
Druckkopf ein paar l0tel Millimeter 
weiter und setzt dıe nächste Punkt- 
reihe. So wird Stück für Stück jedes 
Zeichen zusammengesetzt. Die An- 
steuerung des Druckkopfes über- 
nımmt eine Elektronik ım Drucker, 
die aus den ASCII-Codes die Punkt- 
matrix berechnet. 


Wie funktioniert ein 
Thermodrucker? 


Schon der Name gibt Auskunft 
über das Funktionsprinzip. Ob nun 
['hermodrucker, 'Thermostat oder 
Thermosflasche, alles was mit »Iher- 
mo« anfängt, hat in den meisten Fäl- 
len etwas mit Hitze zu tun. 

Mit Wärme drucken 

Wie kann man Hitze drucken? 
Nun, hierzu ist ein spezielles Papier 
nötig, das sich schwarz verfärbt 
wenn es heiß wird. Das Papier stellt 
man durch Beschichtung mit chemi- 
schen Substanzen her, die bei Wär- 
mezufuhr zu einer schwarzen Ver- 
bindung reagieren. Erkennen kann 
man dieses Papier an seiner einsel- 
tig sehr glatten Oberfläche. Nicht zu 
verwechseln mit dem silbrig be- 
schichteten Papier einiger »Kurz- 
schluß-Drucker«, welche die metal- 
lische Beschichtung beim Druck 





Die Alternativen 


Drucken tun Sie alle. Nur auf das »Wie« kommt es 
an. An dieser Stelle erklären wir Ihnen, wie 
Thermodrucker, Tintenstrahldrucker und Plotter 
funktionieren und wozu man Sie verwendet. 


entsprechenden Stellen. Das Er- 
gebnis ıst in beiden Fällen gleich: 
ein Muster aus schwarzen Punkten. 

Allerdings ist nur das Ergebnis 
gleich. Die Druckgeschwindidgkeit 
eines Thermodruckers ist weitaus 
geringer als die eines Impact- 
Matrixdruckers, wie man einen Na- 
deldrucker auch bezeichnet. Dafür 
ist beim Thermodruck fast nıchts zu 
hören. Die eingeschränkte Ge- 
schwindigkeit eines Thermo- 
druckers ergibt sıch einfach aus der 
Aufheiz- und Abkühlzeit der Wider- 
standsplatten. Der Widerstand kann 
einfach nicht schlagartig aufgeheizt 
werden, da bei zu hohem Heizstrom 
die Widerstände einfach durch- 
brennen würden. 


Teueres Papier 

Sie können sich sicherlich vorstel- 
len, daß das Spezialpapier wesent- 
lıch mehskosteralsuemn.ales »Com- 
puterpapier« Die Thermodrucker- 
Hersteller haben sıch deshalb noch 
etwas Zusätzliches einfallen lassen, 
damit auch normales Papier ver- 
wendet werden kann: Den Druck 
über ein Carbon-Band. Anstatt das 


N 
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Papier »schwarz zu brennen«, wer- 
den hier schwarze Partikel vom 
Carbon-Band gelöst und aufs Papier 
übertragen. Also ähnlich einer 
Schreibmaschine, nur, daß. das 
Band nicht durch einen Anschlag 
abfärbt, sondern durch Hitzeeinwir- 
kung. Aber das Carbon-Band ıst we- 
sentlich teuerer als normales 
Druckerband und kann nur einmal 


verwendet werden. Aus dem 
Druckprinzip folgt, daß keine 
Durchschläge gemacht werden 


können. 


Tintenstrahldrucker — 
Wie funktionieren Sie? 


Tintenstrahldrucker haben ein 
raffiniertes, mechanisch sehr auf- 
wendiges Funktionsprinzip, das ein 
gutes Schriftbild (Bild 2) und eine ho- 
he Druckgeschwindigkeit bei sehr 
leisem Druck ermöglicht. Sie ver- 
einigen also alle Vorteile von Im- 
pact-Matrixdruckern und Thermo- 
druckern in sıch. Der einzige Nach- 
teil: der Preis. Wesentlich unter 2000 
Mark ist fast kein Drucker dieser 
Klasse zu haben. 

Im Gegensatz zu allen anderen 
Druckern arbeiten diese Druckerty- 
pen nicht mit Farbbändern, sondern 
mit Tinte die gezielt aufs Papier ge- 
spritzt wird. Nurtröpfchenweise ver- 
steht sich. Damit die Tropfen schnell 
antrocknen und nicht verwischen, 
ist ein saugfähiges Papier Voraus- 
setzung. Dieses Spezialpapier Ist et- 
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wegschweißen. 

Anstelle der Nadeln hat der 
Druckkopf eines Thermodruckers 
kleine, punktförmige Plättchen die 
schnell aufgeheizt werden können 
und auch schnell wieder abkühlen. 
Bild 1 zeigt die schematische Anord- 
nung der Heizplättchen ın einem 
Thermodruckkopf. Die Heizplätt- 
chen stellen im Prinzip nichts weiter 
dar, als flache »Widerstände«, die 
senkrecht übereinander angeord- 
net auf einer gemeinsamen Grund- 
platte sitzen. Wenn bei einem Na- 
deldrucker bestimmte Nadeln aufs 
Papier geschlagen werden, erhitzt 
ein Thermodruckkopf einfach die 
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verengung 
Verteiler 
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Flaschenkörper 
Elektrode 


Schreibwalze 
Abweisblech 

Platte 

Düsenkanal >) 
Entlüftungskanal 10 
Piezoelektrisches 11 
Röhrchen (Wandler) 12 


Gummiformteil 
Hohlnadel 
Filter 
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Quelle: Siemens 


Bild 3. Schematische Darstellung des Druckkopfes eines Tintenstrahldruckers 
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wa anderthalb mal so teuer wie nor- 
males Computerpapier. Es kann je- 
doch leicht beschafft werden. 

So wie bei allen anderen Matrix- 
druckern auch, wird immer eine 
senkrechte Punktreihe in einem Zug 
geschrieben. Sehr interessant ist 
das Prinzip, mit dem die Tropfen auf 
Papier »geschossen« werden. Bild 3 
zeigt einen Druckkopfschematisch. 

Für jeden Punkt auf einer senk- 
rechten Reihe der Zeichenmatrix 
gibt es einen Düsenkanal (4) zur Er- 
zeugung der Tropfen. In der Zeich- 
nung (Kopf des Siemens P'T'88/89) 
sieht man eine Reihe von sechs Dü- 
sen. Der gezeigte Kopf des Siemens 
PT 88/89 hat zwei solche Reihen ver- 
setzt zueinander angeordnet. Den 
Abschluß der Kanülen bildet eine 
Platte (3), die etwa | mm vom Papier 
entfernt ist. Jeder Düsenkanal ist 
konzentrisch von einem Piezokera- 
mik-Röhrchen umschlossen. Legt 
man eine Spannung an diese Röhr- 
chen an, ziehen sie sich zusammen 
und üben so einen kleinen »Schlag« 
auf die Flüssigkeitssäule aus. Durch 
den Druckanstieg wird dann ein 
Tröpfchen aus der Düse geschleu- 
dert. Wie sich der Tropfen bildet, 
sehen Sie in Bild 4. 

Piezo-elektrische Kristalle haben 
die Eigenschaft, ihre Form ın eine 
. bestimmte Richtung zu verändern 
wenn eine Spannung angelegt wird. 
Umgekehrt liefert der Kristall einen 
sehr kleinen Stromstoß, wenn er ge- 
bogen wird _(Pıezo-Feuerzeug, 
Kristall-Tonabnehmer). 

Bei diesem Verfahren liegt der 
Tintenvorratsbehälter (10, Bild 3) tıe- 
fer als die Kanülen. Das hat den Vor- 
teil, daß in den Düsen eın statischer 
Unterdruck herrscht. Es kann also 
nur dann Tinte austreten, wenn sich 
das Piezoröhrchen zusammenzieht. 

Das ist die übliche und verbreitet- 
ste Version des Tintenstrahl- 
druckers. Von Hersteller zu Herstel- 
ler gibt es dabei natürlich Abwei- 
chungen. So kann der Druck auch 
durch schlagartiges Aufheizen von 
etwas Tinte bis zur Dampfbildung 
erzeugt werden. Innerhalb eines 
kleinen Behälters wird mit Hilfe ei- 
ner leistungsstarken Heizspirale die 
Tinte in der Umgebung der Heizspı- 
rale in sehr kurzer Zeit zum Sieden 
gebracht, wobei sich Dampfblä- 
schen bilden. Diese Dampfentwick- 
lung erhöht den Systemdruck und 
treibt einen Tropfen Tinte aus der 
Düse. Durch das Verdampfen bil- 
den sich leicht Feststoff-Rückstände, 
die den Heizbehälter schnell ver- 
stopfen können. 

Verschiedene Entwicklungen ge- 
hen in eine andere Richtung. Die 
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einzelnen Matrixpunkte werden 
nicht durch einzelne Kanülen er- 
zeudt, son S-meilnsa- 
men Quelle Die Tintentröpichen 
verlassen dabei statisch aufgeladen 
die Piezo»Pumpe« und werden 
über ein elektrisches Feld (Platten- 
kondensator) auf die richtige Bahn 
gebracht. 

Da bei beiden Systemen nur sehr 
kleine Massen (Tintentröpfchen) be- 
wegdt werden müssen, Können grö- 
Bere Schreibgeschwindigkeiten als 
bei Impact-Nadeldruckern erreicht 


werden. 


Die Probleme die bei Tinten- 
strahldruckern gelöst werden müs- 
sen sind recht vielseitig. Das größte 
davon ist die Größe der Tintentröpf- 
chen, die konstant sein muß. Bei un- 
gleichen Tropfen wäre eine fleckige 
Schrift die Folge. Es ıst also sehr 
wichtig, daß einmal die Kanülen ge- 
nau gleichen Durchmesser haben 
und die Piezo-Kristalle den gleichen 
Druck auf die Flüssigkeitssäule er- 
zeugen. 

Recht arbeitsintensiv kann im Fal- 
le einer verstopften Düse das Reini- 
gen des Druckkopfes werden. Der 
Druckkopf muß entweder ausge- 
tauscht oder mit einer Reinigungs- 
flüssigkeit gespült werden. Schmut- 
zige Hände sind nach dieser Arbeit 
nicht selten. Beim Unterdruckver- 
fahren, wo der Vorratsbehälter un- 
terhalb der Düsen liegt, sind ver- 
stopfte Kanülen relativ selten. Häufi- 


ger kommen sie vor, wenn der Vor- 
ratsbehälter oberhalb angebracht 
ist. Die Tintensäule reicht dann näm- 
lich bis an die Düsenöffung und 
kann leicht antrocknen. 


Plotter — 
was können Sie? 


Müssen Sie häufig Kurvendia- 
gramme zeichnen? Dann ist ein Plot- 
ter das richtige Druckgerät für Sie. 
X-Y-Plotter 

Diese Schreiber, auch Flachbett- 
Plotter genannt, eignen sich vor al- 
lem für kleinere Papiergrößen bıs 
DIN A2. Das Papier wird auf einer 
Art Zeichenbrett festgeklemmt und 
ein Stift (Tinte oder Filzstift) über eı- 
nen beweglichen Arm, der über die 
gesamte Papierbreite reicht, in 
Längsrichtung geführt. Über eine 
Seilzugmechanik kann der Stift ın 
der Breite auf dem Arm hin- und 
herbewegt werden. Auf diese Wei- 
se kann Jeder Punkt des Papiers er- 
reicht werden. Eine Hubmechanik 
am Schreibkopf hebt den Stift an, 
wenn nicht geschrieben werden soll. 

Die Positionierung des Stiftes er- 
folgt, auf etwa Ol 
1520-Plotter 0,2 mm) genau, über 
zwei Schrittmotoren, die über eine 
Treiberelektronik angesteuert wer- 
den. Computerseitig muß in den 
meisten Fällen nur die x- und y- 
Koordinate an den Plotter übertra- 
gen werden. | 
Trommel-Plotter 

Sie sind für große Papierformate 
konstruiert worden, wo ein Flach- 
bettplotter zuviel Platz in Anspruch 
nehmen würde. Anstelle einen Stift 
in x-Richtung mit einem Arm zu be- 
wegen, bewegt man hier das Papier 
in Längsrichtung unter dem 
Schreibstift hin und her. Es sind da- 
durch keine Grenzen in der Papier- 
länge gesetzt. Eine Gummiwalze 
transportiert das Papier so, daß es 
auf beiden Seiten aus dem Plotter 
»hinaushängen« kann. Um den 
Schlupf möglıchst gering zu halten, 
sind auf beiden Seiten der Walze 
kreisförmig Nadeln angeordnet, dıe 
zusätzlich das Papier mit hin- und 
herbewegen. 

Die zeichnerischen Vorteile eines 
Plotters liegen auf der Hand. Linien 
werden durchgehend gezeichnet. 
Im Gegensatz zu Hardcopies bei 
Matrixdruckern, bei denen Linien 
aus Punkten zusammengesezt sınd 
und dadurch etwas »zerissen« aus- 
sehen. Meistens werden Plotter zum 
Zeichnen von Schalt- und Bauplänen 
verwendet. Die Erfassung und Bear- 
beitung erfolgt meist mit einem CAD 
(Computer Aided Design)-System. 
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Des Preises wegen sind sie im 
Heimbereich kaum anzutreffen. 
Flachbettplotter kosten in der Regel 
über 2000 Mark. 


Welcher Typ 
paßt zu mir? 


Zusammen mit den letzten beiden 
Ausgaben, haben wir Ihnen fast alle 
Drucker vorgestellt, die es gibt. Teu- 
re Exemplare über 2000 Mark ha- 
ben wir mit Absicht nıcht berück- 
sichtigt. Der Preis paßt einfach nicht 
mehr zu einem Heimcomputer. 

Thermodrucker gehören zu den billig- 
sten Druckern, die es gibt. Aller- 
dings nur in der Anschaffung. Das 
spezielle Thermopapier macht näm- 
lich diese Drucker auf Dauer gese- 
hen teuer. Auch wenn Sie auf 
Plastikcarbon-Band ausweichen, 
mit dem verschiedene Thermo- 
drucker auch normales Papier ver- 
arbeiten, fallen hohe Gebrauchsko- 
sten an. 

Durch das kaum hörbare Druck- 
geräusch sind diese Drucker be- 
sonders für »Nachtarbeiter« geeig- 
net, die sich keinen Tintenstrahl- 
drucker leisten wollen. Mit Thermo- 
druckern können Sie Listings und 
Hardcopies (nicht bei allen Typen) 
drucken. Zum Schreiben von Brie- 
fen eignen sich die meisten wegen 
der schlechten Schrift (6x7 Punkte) 
nicht. 

Empfehlen können wir diese 
Drucker denjenigen, dienicht zutief 
in das Computer-Hobby einsteigen 
wollen. 

Nadel-Matrixdrucker sind sehr weit 
verbreitet. Das liegt an der Vielssei- 
tigkeit dieser Geräte. Es fällt ım 
Heimbereich kaum ein Druckpro- 
blem an, das diese Drucker nicht 
bewältigen würden. Wenn Sie die 
Marktübersicht Matrixdrucker im 
64’er 5/85 anschauen, sehen Sie, 
daß diese Drucker häufig über die 
verschiedensten Schriftarten verfü- 
gen. Sie können also sowohl Ihre Ge- 
schäftspost als auch Listings damit 
drucken. Die Korrespondenz in 
Schönschrift (etwa 50 Z/s) und die Li- 
stings in Normalschrift (etwa 100 
Z/s), wobei die Normalschrift schon 
ein sehr gutes Schriftbild haben 
kann. 

Die Vielseitigen 

Nadel-Matrixdrucker können je- 
dem wärmstens empfohlen werden. 

Aber mit dem Schreiben von Brie- 
fen sind die Leistungen eines Ma- 
trixdrucker nicht erschöpft. Da die 
Nadeln (bei den meisten Matrix- 


druckern) einzeln angesteuert wer- 
den können, kann jede Grafik aus 
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Bild 4. Ein Tintentröpfchen wird aus der 
Düse geschossen 


Quelle: Siemens 


einzelnen Punkten zusammenge- 
setzt werden. Besonders gut können 
diese Drucker Hardcopies vom 
Bildschirm drucken. Eingeschränkt 
ist die Verwendbarkeit bei Kurven- 
und Liniendiagrammen, da die Auf- 
lösung zu gering ist. Hier sind die 
Plotter in ihrem Element. Da der 
Schreiber zwischen den vom Com- 
puter bereehneteikwinisten nicht ab- 
gesetzt wird, interpoliert er quasi 
ein Kurven-Diagramm. Eine durch- 
gezogene Linie ist die Folge. 

Der Kauf eines Plotters für zu Hau- 
se lohnt sich aber nur in den wenig- 
sten Fällen, da ein Plotter nur zum 
Zeichnen sinnvoll verwendet wer- 
den kann. Grafikbilder in Hochauf- 
lösung zu drucken ist praktisch un- 
möglich. Genauso das Schreiben 
von Briefen. Listings sollten sie mit 
einem Plotter nur dann drucken, 
wenn Sie über zuviel Zeit verfügen. 

Ein Plotter ist kein Ersatz für einen 
Drucker. Vielmehr ist er als Zusatz- 
gerät zu einem Drucker gedacht, 
wenn es auf saubere Zeichnungen 
ankommt. 

Tintenstrahldrucker vereinigen die 
Vorteile von Nadel- und Thermo- 
druckern. Sie sind sehr vielseitig 
und leise. Allerdings können keine 
Durchschläge wie mit dem Nadel- 
drucker angefertigt werden. Das 
Schriftbild der »Tintenspritzer« ist 
nicht ganz so exakt wie das gleich- 
teurer Matrixdrucker (Bild 2). 

Brauchen Sie einen schnellen 
Drucker fürs Büro, beispielsweise 
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für Kontrollprotokolle, Adressenauf- 
kleber und Rundschreiben, sind Sie 
mit einem leisen Tintenstrahl- 
drucker richtig beraten. Ebenso 
wenn Sie zu Hause keine Familien- 
mitglieder mit dem Lärm eines Na- 
deldruckers belästigen wollen. 

Typenraddrucker sind nur für Textver- 
arbeitung interessant, wenn es auf 
sehr schöne Schrift ankommt. Für Li- 
stingsdruck, Hardcopies und Rund- 
schreiben sind sie so gut wie unge- 
eignet. 


Das Problem 
mit dem Interface 


Häufig werden wir gefragt, wel- 
ches Interface das beste für einen 
bestimmten Drucker ist. Leider 
kann die Frage nicht absolut beant- 
wortet werden. Es kommt nämlich 
ganz darauf an, was Sie Investieren 
wollen. 100, 200 oder 500 Mark. Der 
Preis wird von Zusatzfunktionen wie 
C 64-Grafikzeichen-Darstellung etc. 
bestimmt. Bevor Sie sehr vıel Geld 
ausgeben, beachten Sie aber, daß 
die Arbeit mit einem Interface um so 
schwieriger werden kann, je mehr 
Funktionen es bietet. Für die Praxis 
haben sich folgende Funktionen als 
sinnvoll erwiesen: 

— CBM-ASCII-Wandlung; die Com- 
modore-Zeichencodes werden der 
ASCII-Norm angepaßt (Standard). 
— Groß/Grafikmodus 

— Groß/Kleinmodus 

— Linearkanal; hier werden die Da- 
ten ungewandelt an den Drucker 
geschickt. Diese Funktion ist sehr 
wichtig zum Drucken von Hardco- 
pies. 

Sie merken also, es gibt keinen 
Drucker, der alles 100prozentig 
macht. Vor dem Kauf sollte man sich 
völlig im klaren über die benötigten 
Funktionen sein. Funktionen die 
man vielleicht einmal pro Jahr 
braucht, sollten eine Kaufentscher- 
dung überhaupt nicht beeinflussen. 
Solche Sonderfunktionen können 
nämlich nur den alltäglichen Ge- 
brauch eines Druckers erschweren. 
In der folgenden Marktübersicht 
finden Sie eine Auswahl von Ther- 
modruckern, Tintenstrahldruckern 
und Plottern. Daß von den letzten 
beiden Typen nur wenige aufge- 
führt sind liegt einfach am hohen 
Preis der Geräte Wir haben beı 
2000 Mark die Grenze gezogen.(hm) 
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Die Brother EP 44 ist nicht nur ein Drucker, 
sondern auch eine voll portable Schreibmaschine. 
Sie wird über eine RS232-Schnittstelle angesprochen. 


klein (55 mm x 330 x 262 mm) 

und paßt mit Sicherheit in je- 
den Aktenkoffer. Mit ihren 2,5 kg 
(einschießlich Batterien) fällt sie 
kaum ins Gewicht. 

Die Schreibmaschine hat einen 
Textspeicher für über 3700 Zeichen. 
Dort können ganze Briefe abgelegt 
werden, die auch nach Ausschalten 
des Gerätes oder bei Batteriewech- 
sel erhalten bleiben. Die EP 44 ist 
zwar auch für Netzbetrieb vorgese- 
hen, doch fehlt das Netzgerät in der 
Grundausstattung. 

Der Textspeicher kann auch nach- 
träglich über das löstellige LCD- 
Display bearbeitet werden. Zu den 
Editiermöglichkeiten gehören Lö- 
schen, Einfügen, Ergänzen und Kor- 
rigieren. Die Schreibmaschine 
selbst läßt kaum Wünsche offen. 

Doch inwieweit läßt sich die Bro- 
ther EP 44 mit einem Computer wie 
dem C 64 ansteuern? Der 'I'hermo- 
drucker besitzt dazu eine integrierte 
RS232-Schnittstelle. Uber eine spe- 
zielle Datenleitung von Brother 
(CA50-CMDTI kann die EP 44 direkt 
an den User-Port des VC 20 oder C 
64 angeschlossen werden. Über die 
Geräte- und Sekundäradresse 2 
können nun Buchstaben, Zahlen, so- 
wie Satz- und Rechenzeichen ge- 
druckt werden. Grafikzeichen oder 
Commodore-Sonderzeichen wer- 


D: Schreibmaschine ist sehr 
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den ignoflert oder TAlsen interpre- 


tiert. Die Schreibmaschine ist des- 
halb nicht zum Ausdruck von Li- 
stings oder Hardcopies geeignet. 
Sie findet ihre Verwendung aus- 
schließlich in der Textverarbeitung, 


zumal der Zeichensatz die deut 


schen Umlaute beinhaltet und das 
Schriftbild beim Druck mit Thermo- 
papier dem einer Typenrad- 
schreibmaschine sehr nahe kommt 
(Bild 1). Das Schriftbild mit Plastik- 
Carbon-Band auf normalem Papier 
ıst nıcht ganz so gut. 

Schwierigkeiten traten in der Ver- 
träglichkeit zu Textverarbeitungs- 
Programmen auf. Das Textverarbei- 
tungsprogramm Vizawrite ist nicht 
für einen RS232-Drucker vorgese- 
hen. Wordpro 3+ akzeptiert nicht 
die Geräteadresse 2. Auch mit dem 
Programm SM-Text treten ähnliche 
Probleme auf. Mit Textomat- 
Versionen, die nach 1983 auf den 
Markt kamen, soll laut Firmenaus- 
kunft das Interface zusammenarber- 
ten. 


Easyscript, die große Ausnahme: 

Nur Easyscript konnte an die EP 
44 angepaßt werden. Alle anderen 
Textprogramme konnten hingegen 
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Bild 1. Der verkleinerte Zeichensatz der EP44 | nn 


Drucker 


auch nach längerem »Herumtüfteln« 
nicht in Verbindung mit der EP 44 
verwendet werden. 

Wichtig ist, wie der Druckerkanal 
eröffnet wird: 

OPEN 1,2,2, CHR$(6) + CHRS$() 

Nur nach diesem OPEN-Befehl 
werden Texte einwandfrei ausge- 
druckt. Über die RS232-Leitung ak- 
zeptiert die EP 44 nur 7 Steuercodes 
wie: 

BS (Backspace) 

HT (Horizontal Tabulatıon) 
LF (Line Feed) 

CR (Carriage Return) 

Wenn man schon eine program- 
mierbare Schreibmaschine mit 
Textspeicher besitzt, stellt sich na- 
türlich die Frage, ob dıe Program- 
mierung auch über den Computer 
erfolgen kann, oder ob die gespei- 
cherten Texte mit Hilfe des C 64/VC 
20 auf Diskette oder Kassette ge- 
speichert werden können. Leider ist 
das Interfacekabel hierfür nicht vor- 
gesehen. Auf besondere Bestellung 
können Sie aber von Brother ein bi- 
direktionales Interface erhalten. 
Der Textspeicher kann nur über die 
eigene Schreibmaschinentastatur 
bearbeitet werden. Es ist dann mög- 
lich, den in der Schreibmaschine 
gespeicherte Textinden C 64 zu ho- 
len. An die Brother EP 44 läßt sıch dı- 
rekt ein Modem anschließen. Kom- 
biniert man sie mit einem batterle- 
betriebenen Akustikkoppler, so 
wird aus der Brother ein portables 
Datenterminal, mit dem man sogar 
aus Telefonzellen in Datenbanken 
oder Mailboxen herumstöbern 
kann. 

Die Brother EP 44 ist eine wirklich 
gute elektrische Thermo-Matrix- 
Schreibmaschine mit hervorragen- 
dem Schriftbild. Wegen ihrer Größe 
und Gewicht eignet sıe sıch vor al- 
lem für kleine Arbeiten unterwegs 
(im Flugzeug oder Zug). Auch als 
Datenterminal findet die EP 44 eine 
gute Anwendung. Bemerkenswert 
ist der große Zeichensatz, der alle 
europäischen Sonderzeichen bein- 
haltet. Als Drucker für den C 64 und 
VC 20 eignet sich die EP 44 nur be- 
dingt. 

Für alle, die eine portable 
Schreibmaschine brauchen und nur 
ab und zu etwas über den Computer 
ausdrucken lassen wollen, ist die EP 
44 absolut empfehlenswert. 

(Christian Q. Spitzner/hm) 


Info: Brother, im Rosengarten 14, Postfach 1320, 6368 Bad Vil- 
bel, Preis 799 Mark; Druckerkabel 149,—, Netzadapter 39.— 
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a) Brother HRS ] A: 30,3x17,5x6,5 a,c a)ja 
b) Brother (HR 5C) b) ja 
c)— 
EP-44 18x24 nein keneıe 16 Fazb 22 33x26,4x5,5 b a)nein Brother 1799 — 
Schreib- b) nein Druckerkabel 
masch. c) Aufpreis 149,— 
TC-600 18x24 nein k.A. 6 Bar 22 34x27,6x5,8 b a) nein w. Oo. 1365, — 
b) nein 
c) Aufpreis 


a) Händler TIP680 ‚A. R: ; 31x21,6x7 ca. 600, — 
b) Citizen 


a) Epson 480/Zeile 20,6x12,8x4,6 a) nein Centronics 


b)Epson b) nein 
c) nein 





a) Star STX-80 5x9 ja 60 60 a 22 35,2x19x10 a a) nein Star-C 64-Inter- 595,- 
b) Star b) nein face, ca. 250,— 
c) Aufpreis 
a) Händler Okimate 14x14 ja 144x144 800 a,b, 25,4 6x19x33 ab abcein _ 788,— netto 
b) Okidata 20 7x14 40 schwarz Vorberei- 
o. Sfarbig tung 
a) Händler TP2051C 17x9 ja, farbig biszu 80 bb 24,5 34,7x19,9x6,4 a,b a)nein Centronics ca. 1600,— 
b) Ricoh 1960 pro b) nein : ab Herbst 
8 Zoll c) nein 
© 
Tintenstrahldrucker Son onu.re 











a) Händler PT88-14N 9x9 ja bis 102 150 22  4lx3lxl4 a,b a) nein Centronics- um 2000, — 
b) Siemens b) nein Interface 
c) nein 
a) Didas TTD 8802 9x9 ja k.A. 150 22 41x3lxl4 a,b a) nein Centronics- 2065, — 
Computer b) nein Interface 
b) Tandberg c) nein 
TTD 8822 9x9 ja k.A. 150 22 41x3lx14 a(Epson- a) nein Centronics- 2 188, — 
kompatibel) b) nein Interface 


c) nein 


Plotter 



















a) Adcomp X100C64 38,5x26,2x7,7 a, b (optio- 
b) Adcomp nal) b) ja 
c) Softinterface 





xX300 5 a, DINA3 DINAS3 57,5x44,8x10,5 a,b (optio- a)ja _ 2250, — 
nal) b) ja 
c) Aufpreis 
(ca. 100,—) 









a) Händler VC 1520 27x16x7,5 


b) Commodore dore b) ja 300,— 
c) ja 






















a) Händler KX-W08G Grafik- b, DIN A4 32x26x6 a) nein _ 698, — 
b) Panasonic Schreibmaschine b) nein 
c) Aufpreis 
(ca. 250,—) 
RK-P400C 6,5 b, DINA4 DINA4 36,2x26,8x6,2 a,b a) nein Pana- 998 — 
b) nein sonic ab 


c) Aufpreis RP-K110 August 
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Mit dieser Marktübersicht 
zeigen wir Ihnen, welche 
Thermo- und Tintenstrahl- 
drucker und welche Plotter 
es für einen Heimcompu- 
ter wie den C 64 gibt. 


In der Übersicht haben wır 
Drucker, die deutlich über 2000 
Mark kosten, nicht berücksichtigt. 
Denn Geräte, dıe diese Preisgrenze 
überschreiten, sind für den An- 
schluß an den © 64 wenig sinnvoll, 
kosten sie doch fast schon viermal 
soviel wie der Computer selbst. 

Die Marktübersicht beruht auf 
Herstellerangaben und erhebt keı- 
nen Änspruch auf Vollständigkeit. 
Außerdem sollen alle genannten 
Drucker an den C 64 anschließbar 
sein. Wenn nötig, über ein passen- 
des Interface. 

Die Vorteile der hier aufgeführten 
Drucker: 


Thermodrucker 

Diese Geräte gehören ın der Re- 
gel zu den billigeren Druckern. 
Brauchen aber teures Spezialpapier 
oder extra PlastikCarbon-Band, 
wenn mit normalem Papıer ge- 
schrieben werden soll. 


Tintenstrahldrucker 

Wollen Sie einen leisen Drucker 
mit den Fähigkeiten eines Nadel- 
Matrixdruckers, sind diese Drucker 
die richtigen. Zum Druck brauchen 
Sie spezielle Tinte und saugfähiges 
Papier. 


Plotter 

Plotter sind im Prinzip keıne 
Drucker. Vielmehr: Sie haben damit 
fast nichts gemeinsam. Zwar können 
Plotter Buchstaben schreiben, aber 
diese Funktion dient in der Regel 
nur der Beschriftung von Grafiken. 
Die Stärke der Plotter liegt beim 
Zeichnen von Grafiken, die aus Li- 
nien bestehen. Eine Linien-Grafik 
darf nicht mit einer Hardcopy ver- 
wechselt werden. Beim Druck von 
Hardcopies bleibt nämlich ein Ma- 
trixdrucker ungeschlagen. 

Ein Merkmal haben alle hier vor- 
gestellten Drucker gemeinsam: 
Während der Arbeit sind sie fast 
nichtzuhören und haben schon des- 
halb verschiedenste Einsatzberech- 
tigungen. Haben Sie zu Hause klei- 
ne Kinder, die schlafen sollen, wäh- 
rend Sie Ihrem Computerhobby 
nachgehen? Dann wäre eın »[inten- 
spritzer« ein geeigneter Ersatzfür ei- 
nen eventuell ins Auge gefaßten 
Typenrad- oder Nadeldrucker.(hm) 
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Datenfernübertragung C 64 


Mailbox 
für 
Anfänger 


Das Medium Mailbox 
fasziniert. Der Einsteiger 
zeigt allerdings oft noch 

eine gewisse Scheu. 
Anhand eines Beispiels 
zeigen wir, wie einfach 

der Umgang mit DFU 
sein kann! 


ls erste und wichtigste Regel 
gilt: Istdie Verbindungzueiner 
Ihnen fremden Mailbox herge- 
stellt, sehen Sie sich die Anleitung 
an. Dies ist aus zwei Gründen wich- 
tig. Zum einen werden in den mei- 
sten Fällen Menüaufrufe nur abge- 
kürzt auf den Bildschirm gebracht, 
mit denen ein Neuling kaum etwas 
anfangen kann. In der Decates-Box 
wäre dies »Ihre Eingabe (A,PD.0-6, 
9%. Erst die Anleitung gibt Auf- 
schluß, daß nur RETURN ohne an- 
dere Eingabe das Hauptmenü aus- 
führlich anzeigt. 

Zum anderen kann es bei nıcht so 
ausgefeilten Boxen wie Decates vor- 
kommen, daß Fehleingaben zum 
Programmabsturz führen. Wenn 
dann der Systemoperator nicht zur 
Stelle ist, ist die Box erst einmal für 
alle Anrufer nicht erreichbar. 

Ein weiteres wichtiges Thema ist 
der Informationsaustausch. Diese 
Rubrik dient hauptsächlich zwei 
Zwecken. Interessante Informatio- 
nen möglichst vielen DFU-Fans be- 
kannt zu machen und Kontakt zwi- 
schen einzelnen herzustellen. Ein- 
gaben wıe »Ich grüße alle Hacker. 
xyz«oder»Ich war hier. xyz«machen 
eine Box nur unübersichtlich und 
treiben die Telefonkosten in die Hö- 
he. Damit ist also niemandem ge- 
dient! 

Noch ein Hinweis zum Schluß. Ge- 
rade neue Mailboxen sind oft aufdie 
Hilfe von ihren Änrufern angewie- 
sen. Die meisten Betreiber einer 
Mailbox sind für Jeden Tip und Ver- 
besserungsvorschlag dankbar. Be- 
achtet man diese Regeln, steht einer 
guten Zusammenarbeit zwischen 
Anrufern und Mailboxbetreibern 
nichts mehr im Wege. (rg) 


30 Zur 











11:91:04 >> Sie haben 58 Min. SYSTEM-ZEIT << 


*##*%%* "ZUR ZEIT KEINE MITTEILUNGEN FUER SIE '*#*** 


A’’ANLETILTUNEB ''( Informations-System ) 
F''"FARAME TER '‘'‘( Ausgabe-Steuerung ) 
DES:DEIPASELOTG SE ( Inter-Kommunikation ) 
Herbsge) ch WEITET ( ENDE der Verbindung ) 
ISEEDYEZEFAFTLERS ZEIGTE ( Anschrift % Informationen ) 
ZEN ALL FSBEUSXSSSE ES ( Informations-Austausch ) 
SE HH FITNBEOFR NS ( Frogramm-Austausch ) 
ATIETHEHELEZBEUEXTTTTTE ( Mailbox-Nummern-Liste ) 

S "ANWENDUNG '‘‘( Programm-Ablauf ) 

& FERNKURSE ‘'‘( Frogrammierte Unterweisung ) 
FREALINEEROSDERSESSITT TE ( Frivates Datenbank System ) 
Ihre EINGABE (A,F,D,B-5,9) ‘==> ‘a 


*#####* ANLEITUNG '‘( Informations-System ) '#8**%%* 
1.) ALLGEMEINE HINWEISE 


FROTOKOLL =: 8 Bit, NO Farity, 1 STOF-Bit, X0N, XDOFF 
Schliessen Sie jede Eingabe mit ‘> RETURN < ‘ab. 
Ausgabe Anhalten ''‘""( XOFF ) ‘‘*> Ctr1/S < 
Ausgabe Fortsetzen °'( XON ) '*'""> Ctr1/Q < 
Eın- Ausgabe Beenden ( MENUE ) °"*"> Ctr1/X <£ 
Verbindung Trennen '"( ENDE ) er UGOEErt 


oder > ESC <& 
nicht auflegen! ) 


Die wichtigste Taste ist Ctr1/X oder ESC. 

Mit Ihr koennen Sie Texte und Menues ueberspringen, 
Ausgaben abbrechen und zur Befehlseingabe gelangen. 
Somit bestimmen Sie Ihre Geschwindigkeit selbst. 


Mit > RETURN < ohne Eingabe wird das Menue angezeigt. 


Sie sollten uebrigens einen sinnvollen Namen beim "Logon" verwenden 
da wir nur so die Mosglichkeit haben, Ihnen eine Nachricht zukommen 
zu lassen !!! 


'**°11:035:88 >> Sie haben noch '58 Min. SYSTEM-ZEIT << 
Ba 


Ihre EINGABE (A,F,D,B-58,7) '==> '2 


2'"MA ILBOXKX 't Informations-Austausch ) 


8 ""Zum HAUFTMENUE 


1 "Informationen eingeben 
2 "Informationen anzeigen 


Ihre Eingabe ' (8-2) ‘==> '2 
===== DATE 88.05.85 ===== 


Msg. an ANTHONY in SAN RAFAEL, Californien, USA 

VON: HEM aus D’dorf am 8.5.85 

Hallo Anthony, 

I was expecting your first message today as you announced 

on the phone. From your brief description I learned that you 

had the DECATES-LOGO on your screen. What happended that you 
could not leave the said message under menue-position 2 MAILBOX? 
If you have another try tomorrow please let me know bevorehand over 
the phone. If there are any other problems, just give me a call! 
Finally let me know the date and time of your arrıval here. 

Give my kindest regards to the girls and to BT (i.e. BIG THILO) 
HEM 


hallo phreaks ! 


ıch wende mich an die vielen 54-besitzer, die aufihrem rechner einer 
maıilbox laufen haben oder laufen lassen wollen ! 

ich waere euch unglaublich dankbar, wenn DU, SysOp XYZ dich bei mir melden 
wuerdest, da ich denke, dass a) nicht jedes rad pro mailbox einmal erfun- 
den werden muss und dass b) wohl viele benutzer die ewig gleichen boxen, 
die sıch nur im impressum (und im namen des Sysüps) unterscheiden, 5ysüps 
wissen, dass ich z.B. von den 1891 KIS-Versionen rede, dass also viele 
benutzer diese 38/15-boxen satt haben und was neues sehen wollen... 

wer bock hat, mit mir zusammen, oder auch alleine, eine NEUE, INNDVATIVE 
BOX auf dem cd54 zu realisieren. die weder auf KIS noch auf UMEC basiert, 


oder eine msg an markus packenius in rmi... ok ? 


uebrigens: ich betrachte meine software als freeware |! 
beruht weder auf KIS, noch auf UMC, noch auf MCS noch auf... 


ciao 
marc aurel 


Auszug aus Decates 
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Datenfernübertragun 


C 64 





Marktübersicht: 





Modems und Akustikkoppler 


Die Preise für Modems und Akustikkoppler reichen von 138 bis 1590 Mark. 
Wo die Unterschiede bei den Geräten wa läßt sich nur im direkten Vergleich 


feststellen. Unsere Marktübersicht hil 


je »Gerätevielfalt« bei den Mo- 
N: und Akustikkopplern 
reicht von einfachen Platinen, 
an denen ein Mikrofon und ein Laut- 
sprecher angelötet sind, bis zu op- 
tisch und technisch hochwertigen 
Geräten. An dieser Stelle wollen wir 
nur kurz auf zwei Akustikkoppler 
hinweisen. Alle anderen Angaben 
entnehmen Sie bitte der Tabelle. 
Der erste Akustikkoppler ıst das 
»Akustikkoppler-Modul« von Drust. 
Es handelt sich hierbei um die oben 
erwähnte Platine. Dieses Gerät ist 
nur all denen zu empfehlen, die 
über einen absolut schalldichten 
Raum verfügen. Nebengeräusche 
machen jede Datenfernübertra- 
gung nahezu unmöglich. Leserbrie- 
fe, die die Redaktion erreichten, be- 
stätigten unsere Testergebnisse. 
Das zweite Gerät ist der Äkustik- 
koppler »Dataphon s 21 d« (bau- 
gleich mitdem CTK 1000). Diese Ge- 
rät überzeugt durch Übertragungs- 
genauigkeit und niedrigen Preis. 
Unsere Marktübersicht erhebt 
keinen Anspruch auf Vollständigkeit 
und beruht auf den Angaben der 
Hersteller. (rg) 





Für Commodore 854 


Ascom-Akustikkoppler 
und WS 2000 


32 33up 






Akustikkoppler- 
Modul 


POWER. : 
- Tx. DATA > 

_ RXDATA = 
CARRIER 
ON LINE 





Ihnen, die Übersicht zu behalten. 


Universalmodem 






1200RX-75Tx 


BEAT 328 


kt yelı]ı) 
TSRX-1200Tx 
rail) 600 


_—DONLINE 


T>LOCcAL TEST 


ITIRACLE Technology 3 WS2000 
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 Anbieter/ 


Hersteller 
Gerät 
Stoll 

ST 300: 

ST 2000 


ST 2000 (Btx) 


HSV-Streber 


Dataphon s2i d 


Stockem 
AS-A 2470 


AS-A 2480 





Drust 


Akustikk-Modul 


CDI 
ACK 300 


ACK 1200 


ACK 1200/75 


ACK 75/1200 
ACK 300 Kiel 
ACKU 


Info-Control 
CPV 2000 





a) FTZ-Nr. 
b) Baudrate 


a) 18.13.1996.00 
b) 300 


a) 18.13.1909.00 
b) 300 bis 1200 


a) 18.13.1965.00 
18.13.1907.00 
b) 75 bis 1200 


a) 18.13.1917.00 
b) 300 

a) keine 

b) 300 


a) beantragt 
b) 300 


a) keine 
b) 300 


a) keine 


b) 75 bis 1200 


a) 18.13.1808.00 
b) 300 


a) 18.13.1652.00 
b) 300 


a) 18.13.1652.00 
b) 1200 


a) 18.13.1652.00 
b) 1200/75 


a) 18.13.1652.00 
b) 75/1200 


a) 18.13.1652.00 
b) 300 

a) 18.13.1652.00 
b) 75/1200, 300 


a) 18.13.1909.00 
b) 300/1200, 1200/75 


a) 18.13.1801.00 
b) 300 


a) 18.13.1415.00 
b) 300 


a) keine 
b) 300 





a) Voll-/Halb- Akku 
duplex Netzteil 
b) Originate/ Batterie 
Answer 


a) V/H A/N/B 
b) O/H 


a) V/H 
b) O/A 


a) V/H N 
b) O/A 

a) V/H zN 
b)O 

a) V/H N 
b) O/A 





a) Schnittstelle 
b) LEDs 


a) V.24 

b) — 

a) V.24 

b) — 

a) V.24, DBT03 


a) V.24 

b) Ans., Org., CTS 

a) V.24 

b) Ans., Org. 

a) V.24 

b) Ans., Org., Ein/Aus 


a) — 

b) — 

a) V.24 

b) Ein/Aus, Tx Data, 
Rx Data, Carr., onl. 


a) V. 24 | 

b) Ein/Aus, Carrier 
a) V.24 

b) — 

a) V.24 

b) — 

a) V.24 

b) — 

a) V.24 

b) — 

a) V.24 

b) Carrier 

a) V.24, DBT03 

b) Carrier 

a) V.21, V.23 

b) DTR, CD, RTS, BRTS, 
Ein 

a) V.24 

b) Carrier 

a) V.24 

b) Online, Ein/Aus 


a) V.24 
b) Online, Ein/Aus 


a) User-Port, 


Expansion-Port 


b) Muffen- 
verstellbar 


a) U 
b) ja 
a) U 
b) nein 
a) U 
b) nein 





a)U 
b) entfällt 


a 
b) entfällt 


a) U 
b) ja 


a) U 
b) ja 
a) U 
b) ja 
a) U 
b) ja 


*' zusammen mit Interface und Software 397,—, *’ induktive Übertragung, x Mengenrabatte auch für Clubs 
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C 64 Datenfernübertragung 


a) inkl. Interface/ 
Software 
b) Preis (in Mark) 


a) — 
b) 590, — 


a) — 
b) 990,— | 


a) — 

b) 990,— 
a) * 

b) 298, — 


a) — 
b) 168,— 







a) — 
b) 198, — 


















Printtechnik a) keine a) V/H - Ve a) U a) entfällt, S | 
Universalmodem b) 300, 1200/75 b) O/A b) Online b) keine Muffen b) 348,— Bausatz 
CTK a) 18.13.1954.00 aV . A/N a) V.24 a)U a)l 
CTK 2000b b) 300 b) O/A b) DTR, CD, RTS, Ein b) *“ b) 525,— * 
CTK 2000 a) 18.13.1954.00 a) V/H N a) V.24 a) U a)l 
Universalkoppler 18.13.1952.00 (Btx) b) O/A b) DTR, CD, RTS, b) *? b) 980,— *° 
b) 300, 1200, 1200/75, BRTS, Ein 
75/1200 
CTK 2003 Btx a) 18.13.1953.00 a)H A/N a) V.24 a) U a)l 
b) 75/1200 b) — b) DTR, CD, RTS, b) *? b) 980,— *? 
BRTS, Ein 
CTK a) 18.13.1955.00 a) V/H A/N a) V.24 a) U a) — 
Minimodem 3005 S b) 300 b) O/A b) DRS, DCD, RCV, b) ja b) 655,— 
| XMIT 
CTK 1000 a) 18.13.1917.00 a)V A/N/B a) V.24 a) U a) — 
b) 300 a) O/A b) Anw., Org., CTS b) ja b) 261,— 
Software Express a) 18.13.1897.00 a)V N/B a) V.24 a) U a)l 
AK300S b) 300 b) O/A b) Ein/Aus, Carrier b) ja b) 298,— 
AK 300 P a) 18.13.1897.00 a) V/H A/N a) V.24 a) U a)l 
b) 300 b)A b) Ein/Aus, Carrier, b) ja b) 625,— 
Received 
AK 300 a) 18.13.1897 a)V N/B a) V.24 a) U a)l 
a b) 300 b) O/A SaeR onLmaBeBsr/Aus, Carrier b) ja b) 385,— 
K 1200/1 a) 18.13.1687.00 a)H A/N a) V.24, TTL a)U a) — 
b) 1200 b) — b) Ein/Aus, Carrier b) ja b) 1250, — 
K&N 3001 a) beantragt a) V N a) V.24 a) U a)l 
b) 300 b)O b) Ein/Aus, Carrier b) ja b) 298 — 
K 1200/83 a) 18.13.1687.00 a)H A/N a) V.24, TTL a) U a) — 
b) 75/1200 b) — b) Carrier b) ja b) 1290, — 
Dynamics a) 18.13.1972.00 a) V/H N a) — a)E a)Ss 
Ascom ÄAkustikk. b) 300 b) O/H b) Ein/Aus b) entfällt b) 279, — 


a) (als Listing) 

b) 99,—/59,— (Bausatz) 
a) S (als Listing) 

b) 798, — 


a) — 
b) 748,— 
a) — 
b) 498, — 


a) — 
b) 850, — 


a) — 
b) 898, — 
a) — 
b) 998, — 
a) — 
b) 298,— 
a) — 


b) 998, — 


a) — 
b) 1214,10 





a) — 

b) 395. — 
a) — 

b) 1370, — 


a) — 
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ACK 300 


P7 


Info: 

Info-Control KG, 
Renatastr. 40, 
8000 München 19 


Stoll EDV-Peripherie 
GmbH, Lessingstr. 30, 
5303 Bornheim/Köln 


Dataphon 

S 21 d HSV-Streber, 

Ä DENE nkoterstr. 24, 
2 8000 München 2 


DD 





Stockem Computer- 
technik, Berghausen 
3, 5778 Meschede 


Printtechnik, 
Stumpergasse 34, 
A-1060 Wien 


CTK, Langenbrück 


oO 


Hugo-Viehoff-Str. 84, 
4000 Düsseldorf 30 


Dynamics 

Marketing GmbH, 

Große Bäckerstr. 11, 

2000 Hamburg | 

Minimodem | 

3005 Fotoelektronik Immo 
Drust, Landwehrstr. 5, 

6100 Darmstadt 


Computer Related 
Products, 

Claus F. Erbrecht, 
Lappenbergsallee 37, 
2000 Hamburg 20 


Epson Deutschland 
GmbH, Am Seestern 
24, 4000 Düsseldorf 11 


Comko Computer- 
systemg. mbH, 
rsdorier 


ennNn KäAln AN 
OUUU KNOoMN U 


CDI, Tauentzienstr. ], 
STE N MEERE ESTER EEE BEILLELETETT 1000 Berlin 30 
Tandy, Hermann- 
Lingg-Str. 30, 

8000 München 2 
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C 64 EPROM-Grundlagen 
Wie sage ich es meinem EPROM? 


Die Programmierung von EPROMS hat ihren besonderen Reiz. Doch was ist das 
eigentlich, ein EPROM? Wir stellen die wichtigsten EPROM-Typen der 25er und 
27er Reihe vor und zeigen Ihnen, wie man sie programmiert. 


ei Halbleiterspeichern muß 
B:- zwischen Festwert- und 

Schreib/Lesespeichern unter- 
scheiden. Die Festwertspeicher 
gliedern sich in ROMs (Read Only 
Memory), PROMs (Programable 
ROM), und EPROM:s. Die EPROMs 
haben gegenüber den anderen 
Festwertspeichern den Vorteil, daß 
sie sich nach einer Programmierung 
wieder löschen lassen. Sıe sind also 
für Anwendungen, In denen keine 
größeren Stückzahlen anfallen oder 
öfters Anderungen gemacht wer- 
den müssen, prädestiniert. Auch die 
Preise bei den Speicher-ICs haben 
in den letzten Jahren einen so erfreu- 
lichen Verlauf genommen, daß es 
sich in vielen Fällen lohnt, häufiger 
benötigte Programme als Modul in 
EPROMs zu speichern. Der Wer- 
mutstropfen bei ıhrer Anwendung 
ıst die relativ komplizierte Program- 
mierung, für die ein eigenes Gerät 
benötigt wird. 


EPROM-Typen 


Die ersten EPROMs benötigten 
noch drei Versorgungsspannungen 
und waren nur mit großem Aufwand 
zu programmieren. Da Ihr Preis in- 
zwischen auch mehr als »Liebhaber- 
preis« zu sehen st, soll auf diese »an- 
tiken« Stücke nicht näher eingegan- 
gen werden. Später gingen die Her- 
steller dazu über, Speicherbaustei- 





Bild 1. 2564 in einem 24poligen 8 KByte 
ROM-Sockel, V,r muß an +5 V, (CS, und CS, 
an Masse liegen 
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ne miteiner5 VoltSpannungsversor- 
gung zu produzieren. Dadurch wur- 
de der Aufwand, EPROMs zu pro- 
grammieren, erheblich reduziert. 
Der erste Typ, der 2508, hatte eine 
Kapazität von 1 KByte. Alle EPROMs 
werden nach dem sogenannten 
Byte-wide-Prinzip gefertigt, das 
heißt sie haben acht Datenleitun- 
gen. Dies hat den Vorteil, daß zum 
Anschluß an einen 8-Bit-Mikropro- 
zessor nur ein IC benötigt wırd. Hin- 
zu kommt, daß die Pinbelegung der 
EPROMs so konzipiert ist, daß sie 
untereinander und zu vielen statl- 
schen RAM-ICs weitgehend kompa- 
tibel sınd. 

EPROMs mit 2 KByte heißen 2716 
oder 2516, wobei Jedoch beim Kauf 
von 27/l6ern Vorsicht geboten ist, da 









Bild 2. Der brandneue 27513 und seine kleineren Vorgänger im Vergleich 


vereinzelt auch noch ältere 3-Span- 
nungstypen unter diesem Namen 
gehandelt werden. 4 KByte 
EPROMs gibt es ım Handel unter 
den Bezeichnungen 2732 und 2532. 
Diese beiden Typen unterscheiden 
sichindenPins l8und 21. Der Grund 
für diese Abweichung ist darın zu 
suchen, daß Texas Instruments, der 
Hauptlieferant für 2532er, bei ihren 
EPROMs eine direkte Pin-Kompati- 
bilität zu den bestehenden Masken- 
ROMs suchte, während die meisten 
anderen Hersteller die 4 KByte- 
EPROMs aufwärtskompatibel zu 
den größeren Z8poligen Typen ma- 
chen wollte Das Bemühen von TI 
wird noch deutlicher, wennmanden 
2564, den 8 KByte-Iyp dieses Her- 
stellers, betrachtet. So Ist es mÖg- 
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(Quelle: Intel) 
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Bild 3. Zeitdiagramm für die Programmierung von 2764 EPROMs 
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lich, dieses 28polige IC direkt mit 
dem unteren Teil ın einen 24poligen 
Sockel für ein 8 KByte-ROM zu set- 
zen, wie zum Beispiel das Kernal- 
ROM desC 64, falls es gesockelt ist. 
Die Pins 1, 2, 27 und 28 sind einfach 
wie in Bild | gezeigt zu beschalten. 
Diesen Vorteil des 2564 muß man je- 
doch mit einem etwas höheren Preis 
bezahlen. 

Der bei weitem verbreitetere 8 
KByte-Typ ist der 2764. Er ıst zur Zeit 
das EPROM mit dem günstigsten 
Preis/Bit-Verhältnis. Die Typenbe- 
zeichnung ist bei diesen EPROMs 
äußerst logisch aufgebaut. Die Zahl 
hinter der 25 beziehungsweise 27 
gibt die Kapazität des Speichers in 
KBit an. Also: 2764 bedeutet 64 KBit 
oder 8 KByte. Folglich heißen die 
größeren Typen 27128 (16 KByte), 
21256 (32 KByte) und 27512 (64 KBy- 
te). Ein EPROM mit 1 Megabıt Sper- 
cherkapazität ist von NEC angekün- 
digt, wırd jedoch in einem 40poligen 
Gehäuse angeboten werden. 

Diese immensen Speichergrößen 
sind aber im Moment den professio- 
nellen Anwendern vorbehalten und 
können von Homecomputern mit 
8-Bit-CPUs nicht sinnvoll verwaltet 
werden. Einen sehr geeigneten 
Schritt hin zur leichteren Verwaltung 
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Bild 4. Schneller Programmieralgorithmus 


(Quelle: Intel) 
36 Kap 


großer EPROM-Bänke hat Intel mit 
Ihrem 27513 (Bild 2) gemacht. Dieses 
EPROM ist seitenorientiert aufge- 
baut, das heißt es besteht aus vier 
EPROM-Bänken mit jeweils 16 KBy- 
te. Die Auswahl der aktiven Bank er- 
folgt über einen Schreibbefehl in 
ein internes Register des 27513. 
Beim Schreibbefehl werden die an 
den Datenleitungen DO und D] an- 
liegenden Informationen übernom- 
men und zur Seitenadresse deco- 
diert. Beim Einschalten der Versor- 
gungsspannung wird automatisch 
die Seite Null aktiviert, so daß man 
einen definierten Systemzustand er- 
hält. Miteinem 27513lassen sich also 
mit einem Befehl vier 16 KByte- 
Blöcke umschalten. Es ließen sıch 
also auch umfangreichere Program- 
me auf kleinere Computer um- 
schreiben und in einem Chip unter- 
bringen. Für den Expansion-Port 
des C© 64 wäre dieses IC geradezu 
ideal. Es wird Jedoch noch zirka 
zwei Jahre dauern, bis dieser Bau- 
stein preislich mit anderen Lösun- 
gen konkurrieren kann. 

Nach soviel Zukunftsmusik nun 
wieder zur Realität: Der Bedeutung 
der einzelnen Pins eines EPROMs 
und der Programmierung. 


Der 27.64-untez.Jer Lupe 


Das 28polige Gehäuse des 2764 
(Bild 2)hat 13 Adreßleitungen, A0Obis 
Al2. Sıe dienen zur Auswahl der an- 
gesprochenen Speicherstelle und 
sind binär codiert. Der Chip hat acht 
Datenleitungen O0 bis O7, die bei 
einem Lesezugriff das Datenwort 
führen. Während der Programmie- 
rung müssen hier die zu program- 
mierenden Bytes angelegt werden. 
Ferner gibt es noch eine Chip- 
Enable-(CE), eine Output-Enable- 
(OE) und eine Program-Leitung 
(PGM). Ihre Funktionen zeigt Bild 3. 
Die 5 VoltVersorgungsspannung 
wird an Pin 28 (V..) angeschlossen, 
Pin 1 (V,,) führt während der Pro- 
grammierung2l Volt sonst 5 Volt. AI- 
le Spannungen beziehen sich auf 
das mit Pin 14 (GND) verbundene 
Massepotential. 

Konventionelle Programmierung 

Beim Programmbeginn muß PGM 
auf Low-Pegel liegen. Dann erst darf 
die Programmierspannung von 2] 
Volt angelegt werden. Diese Span- 
nung kann bis zum Ende der Pro- 
grammierung angelegt bleiben, 
muß also nicht zum Verifizieren der 
Daten abgeschaltet werden. Nur vor 
der Entnahme des ICs aus der Fas- 
sung sollte man die Spannung ab- 
schalten, um ungewollte Program- 
mierungen oder sogar die Zerstö- 
rung des Chips zu vermeiden. Wäh- 


rend der gesamten Programmıe- 
rung muß der 2764 selektiert sein, 
das heißt, der Chip-Enable-Eingang 
auf Low-Pegel liegen. Mit OE = high 
werden die Ausgänge des EPROMs 
abgeschaltet. Jetzt werden die 
Adresse und das entsprechende 
Datenwort angelegt und, wenn die- 
se stabıl anlıegen, dıe Programmie- 
rung durch einen 50 ms langen ne- 
gativen Impuls an PGM vollzogen. 
Jetzt werden die Daten von den Aus- 
gängen O0 bıs O7 des EPROMs ent- 
fernt und der Inhalt der gerade pro- 
grammierten Speicherzelle mit OE 
= Low-Pegel ausgelesen. Stimmt er 
nicht mitdem Sollwertüberenn, so ist 
entweder das IC oder das Program- 
miergerät nicht in Ordnung. Ist die 
Zelle korrekt »gebrannt«, kann man, 
nachdem OE wieder auf High-Pegel 
gebracht wurde, mit dem nächsten 
Byte fortfahren. Da die vollständige 
Programmierung eines 2764 mit die- 
sem Verfahren zırka 7 Minuten dau- 
ert, haben sich die meisten Herstel- 
ler einen schnelleren Programmier- 
algorıthmus ausgedacht (Bild 4), der 
die Programmıierzeit für einen 2764 
auf zirka 75 Sekunden verkürzt. Die- 
se immense Zeilteinsparung ist vor 
allem für den kommerziellen An- 
wender wichtig, da sie oftmals die 
Anschaffung eines teuren Produk- 
tions-EPROMmers, der mehrere 
ICs gleichzeitig brennen kann, 
überflüssig macht. Aber auch für 
den Amateur ist eine solche Zeitein- 
sparung angenehm, zumal der 
schnelle Algorithmus keine umfang- 
reichen Änderungen an der Hard- 
ware des Programmiergeräts benö- 
tgt. 
Der schnelle Programmieralgorithmus 

Um die Methode der schnellen 
Programmierungzu verstehen, istes 
hilfreich, sich eine Vorstellung von 
dem zu machen, was sich bei der 
Programmierung in einer Speicher- 
zelle abspielt. Eine EPROM-Zelle 
besteht im wesentlichen aus einem 
Feldeffekttransistor mit isoliertem 
Gate. Die Spannung des Gates be- 
einflußt maßgeblich den Strom zwi- 
schen Source und Drain, den bei- 
denanderen Anschlüssen des Tran- 
sistors. Wirdnundie Zelle beieinem 
Lesezugriff angesprochen, so er- 
zeugt dieser Strom einen Span- 
nungsabfall, der mit einem festen 
Wert, der Schwellspannung, vergli- 
chen wird. Ist die Spannung kleiner 
als die Schwellspannung, also das 
Potential am Gate des Zelltransistors 
noch zu niedrig, dann ist der korre- 
spondierende Ausgang des Spei- 
chers auf High-Pegel. Nach dem Lö- 
schen mit UV-Licht oder beim Kauf 
eines neuen Chips sind die Gates 
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der Zelltransistoren ungeladen. 
Deshalb haben neue EPROMs im- 
mer den Inhalt »$FF«. Durch die Pro- 
grammierung wird die Ladung auf 
dem Gate erhöht und es kann nun, 
wenn man während des Program- 
mierens öfters den Speicherinhalt 
überprüft, der Zeitpunkt bestimmt 
werden, zu dem die Daten das erste 
Malrichtigin den Zellen stehen. Das 
bedeutet jedoch nicht, daß der In- 
halt nun stabil für immer ın den Zel- 
len erhalten bleibt, sondern daß die 
Schwellspannung zum ersten Mal 
überschritten wurde. Die schnellen 
Programmieralgorıthmen messen 
die Zeit bis dies geschieht und pro- 
grammieren dann noch einmal ein 
Vielfaches dieser Zeiten. (Je nach 
Hersteller zwischen dem ein- und 
vierfachen). 

Damit die Daten über den gesam- 
ten Temperatur- und Versorgungs- 
spannungsbereich stabil sınd, wırd 
von allen schnellen Algorithmen ei- 
ne weitere Aktion vor der eigentli- 
chen Programmierung unternom- 
men. 

Die Versorgungsspannung wird 
von 5 auf 6 Volt erhöht. Die Schwell- 
spannung, die zum Vergleich, ob ei- 
ne Zelle geladen ist oder nicht, her- 
angezogen wird, wird nämlich aus 
der Versorgungsspannung abgelei- 
tet. Ist diese Schwellspannung nun 
etwas höher, soläßt der Algorithmus 
die Speicherzellen alle etwaslänger 
brennen, als es für den normalen 
Betrieb eigentlich nötig wäre. Dies 
bringt zusätzliche Sicherheit, beson- 
ders an den Grenzen des erlaubten 
Betriebsbereiches und eine qute 
Langzeitstabilität. 


Programmiergeräte 


Das Komplizierteste am Selbstbau 
eines EPROM-Programmiergerätes 
ist das programmgesteuerte Um- 
schalten von stabilen Spannungen 
an den verschiedenen Pins der 
Wechselfassung. Um ein universell 
verwendbares Gerät zu erhalten, 
sind drei Programmierspannungen 
(12,5 V, 21 V, 25 V) und die Möglich- 
keit, für den schnellen Algorıthmus 
die Versorgungsspannung auf 6 Volt 
zu erhöhen, vorzusehen. Die Aus- 
wahl zwischen den EPROM-Typen 
kann man entweder über Schalter 
oder rein softwareseitig machen. 
Die Adressen-, Daten- und Steuerlel- 
tungen werden am einfachsten über 
Parallel-Ports geführt, da diese sehr 
leicht zu programmieren sind. Ein 
großes Problem bleibt die Strom- 
versorgung. Es ist wünschenswert, 
ohne einen zusätzlichen Netztrafo 
auszukommen, nicht nur weil mel- 
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stens die letzte Steckdose schon be- 
setzt ıst, sondern weil es für einen 
unerfahrenen Bastler die unliebsa- 
me Bekanntschaft mit 220 Volt zu ver- 
meiden hilft. Für den © 64 bietet sich 
die Benutzung des User-Ports an, da 
er die 9 Volt Wechselspannung des 
Computers an den Pins 10 und 11 
führt. Nachteilig für den Selbstbau 
ist die äußerst schwierige Program- 
mierung der V/O-Leitungen. Als Al- 
ternative zum User-Port bliebe nur 
noch der Expansion-Port, der einen 
sehr einfachen Anschluß von Port- 
bausteinen gestattet. 

Der Nachteil dieser Alternative ıst 
die Notwendigkeit, die Program- 
mierspannung durch einen Gleich- 
spannungswandler aus den 5 Volt zu 
gewinnen. Erstens sind solche 
Wandler nicht gerade billig, und 
zweitens wird dadurch sehr schnell 
die Belastungsgrenze der Compu- 
terstromversorgung erreicht. Aus 
den 5 Volt sollten nicht mehr als 300 
mÄ entnommen werden, während 
die 9 Volt-Spannung etwas unemp- 
findlicher auf Überlastung reagiert. 
Wem nach diesem kleinen Einblick 
in die Problematik eines solchen 
Projektes noch nicht der Mut zum 
Selbstbau eines Programmiergerä- 
tes verlassen hat, dem sei angera- 
ten, sche Datfende®®7 der Her- 
steller zu Gemüte zu führen. Jedoch 
sollte ein solcher Selbstbau wirklich 
dem Freak vorbehalten bleiben, da 
mit Spannungen gearbeitet wird, 
die den © 64 leicht zerstören kön- 


-XROM und GAME 


Der C 64 hat die Möglichkeit, im 
Expansıon-Port EPROM-Module 
aufzunehmen, die ın den Adreßbe- 
reichen $8000 bis $9FFF und $A000 
bis $BFFF liegen. Um dem Compu- 
ter mitzuteilen, ob ın dem Expan- 
sıion-Port ein EPROM steckt, hat er 
die Leitungen XROM und GAME. 
Wird XROM auf Low-Pegel gelegt, 
schaltet der Computer sein internes 
RAM von $8000 bis $9FFF ab und er- 
zeugt für diesen Bereich einen Chip- 
Select (ROML), das direkt an den 
Chip-Select-Eingang des EPROMs 
gelegt werden kann. Wenn GAME 
auf low gelegt wird, so schaltet der 
C 64 seinen Basic-Interpreter ab 
und erzeugt für den Bereich von 
$A000 bis $BFFF das Chip-Select- 
Signal (ROMH), das ebenfalls an 
den Chip-Select-Eingang des 
EPROMs gelegt werden kann. Es ist 
verständlich, daß dieser Bereich 
nur für Maschinensprache oder an- 
derenicht aufdas Basic zugreifende 
Programme geeignet ıst. 


Der C 64 kann Programme ım 
$8000-Bereich als Autostart-Pro- 
gramme identifizieren. Als Indiz 
dient hm der CBM80-Code ın den 
Adressen von $8004 bis $8008. Zu 
beachten sind die nicht dem ASCHI- 
Code entsprechenden Buchstaben- 
codes des © 64. Sind also die Spel- 


Autostart 


cherzellen von $8004 an mit den 
HEX-Werten $C3, $C2, $CD, $38 und 
$30 gefüllt, so springt der Computer 
indirekt über die Adresse $8000 in 
das Programm. ($8000 = Low-Ädres- 
se und $8001 = High-Adresse). In 
den Adressen $8002 und $8003 steht 
der neue NMlI-Vektor im Low-/High- 
Format. 


Basic-Programme 


Um Basic-Programme mit Auto- 
start in EPROMs zu brennen, emp- 
fehlen wir einen Blick in die Ausga- 
be 9/84, Seite 163. In dem Artikel ist 
ein Verschiebeprogramm ın Ma- 
schinensprache abgedruckt, womit 
ein nach $8100 verschobenes Basic- 
Programm wieder korrekt zurück- 
gelegt und gestartet wird. 

Mit dieser Hilfe müßte es möglıch 
sein, ein einfaches Programm zu 
schreiben, das ein Basic-Programm 
einfach hinter den Lader schreibt 
und für den Prommer als HEX-Da- 
tei zum Beispiel nach $2000 schiebt. 


EEPROMs 


Eine neue Entwicklung der Halb- 
leiterindustrie ist das EEPROM, eın 


‘Speicher, der sich elektrisch lö- 


schen läßt (statt wie bisher mit UV- 
Licht) und seinen Inhalt beim Ab- 
schalten der Versorgungsspannung 
nicht verliert. Diese Bausteine müs- 
sen zum Programmieren nicht aus 
der Schaltung entfernt werden. Die 
Schreibdauer liegt bei zirka 10 ms. 
Das ist verglichen mit RAM-ICs sehr 
hoch. Deshalb gibt es, vor allem von 
kleineren amerikanischen Firmen, 
Speicher, die ein statisches RAM mit 
einem EEPROM auf einem Chip 
kombinieren. Solche NOVRAMs 
(Nonvolatile Random Access Memo- 
ry) haben die kurzen Zugniffszeiten 
eines RAMs und die Möglichkeit, 
mit einem Befehl den gesamten 
RAM-Inhalt auf einmal ın die 
EEPROM-Zellen zu schreiben. Es 
müssen aber noch einige technı- 
sche Probleme beseitigt werden, 
wie etwa die zur Zeit auf zirka 10000 
Schreibzyklen pro Speicherzelle 
beschränkte Lebensdauer. 


(Klaus Zietlow, Arnd Wängler/ah) 
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Frisch gebrannt ist halb gespeichert 


Die andere Hälfte, die 
Sie zum Programmieren 


von EPROMs brauchen, 
ist ein EPROM-Program- 
miergerät. Unser Ver- 
gleichstest stellt einige 
Modelle auf eine harte 


Probe. 


s ist fast ein Jahr her, seit wır Ih- 
F nen das letzte Mal EPROM-Pro- 

grammiergeräte vorgestellt ha- 
ben. Damals galt jemand, der sıch 
seine eigenen Speicherbausteine 
programmierte noch als Insider und 
Freak. Mittlerweile, und die täglıch 
bei uns eingehenden Anfragen be- 
weisen das, beschäftigt sich ein 
Großteil der C 64-Besitzer mit dieser 
Art der Datenspeicherung. Mit gu- 
tem Grund, denn erst die Program- 
mierung von EPROMs/PROMs er- 
laubt es, »Ladezeiten« auf Nanose- 
kunden zu reduzieren. So sind bei- 
spielweise Änderungen des Be- 
triebssystems oder neue Zeichen- 
sätze am besten im Computer aufge- 
hoben. Der Erfolg und das Interesse 
der Hypra-Perfekt-Kernal-Version 
zeigt, wie reizvoll gerade diese An- 
wendungsart ist. 

Um aber in der Lage zu sein, 
EPROMSs/PROMs zu programmıe- 
ren, benötigt man ein Zusatzgerät. 
Diese Erweiterung, die entweder 
am User-Port (Regelfall) oder aber 
am Expansıion-Port (Ausnahme) an- 
geschlossen wird, erfüllt mehrere 
Aufgaben. Zum einen ıst esmöglich, 
EPROMs zu lesen und deren Inhalt 
auf Diskette abzuspeichern, zum an- 
deren können beliebige Program- 
me von Diskette auf ein neues 
EPROM übertragen werden. 

Eines unserer Testgeräte kann so- 
gar ähnlich wie ein Floppy-Lauf- 
werk bedient werden und erlaubt 
Befehle wie GET, INPUT, PRINT, 
LOAD, SAVE. Dadurch kann es auch 
die brandneuen EEPROMs (Electri- 
cal Ereasable Programmable Read 
Only Memorys) verarbeiten. 

Keines unserer Testgeräte Kostet 
mehr als 300 Mark. Selbst wenn man 
den Preis des Computers noch hin- 
zurechnet, erhält man eine EPROM- 
»Brennerei«, die Leistungen wie ei- 
ne professionelle Anlage hat, aber 
nur einen Bruchteil davon kostet. 
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Bild 1. Gestestete EPROM-Programmiergeräte; Eprom 64 u Thienel (5), John-Hall (4), 


Dela (3), PP 64 (2) 


Unser Testfeld bestand aus insge- 
samt se chen SHE, ion denen 
aber eines ısquali iziert werden 
mußte. Es war eine fast l0Oprozen- 
tige Kopie des EPROM 64 von Roß- 
möller (Nummer | ım Bild). Sowohl 
die Software, als auch der Aufbau 
der Hardware wurde vom Prinzip 
her nicht verändert. Es wird eben 
nicht nur bei Rolex und Cartier ge- 
klaut, sondern auch im Zusatzgerä- 
tehandel. 

Der EPROM 64 nahm nochmals 
am Test teil, aber als Referenzgerät. 
Alle Testkandidaten wurdenmitden 
Leistungen des EPROM 64 vergli- 
chen, der Ja immerhin schon eine 
über ein Jahr alte Entwicklung ist. 
Zum Test waren angetreten: Das 
Thienel-Programmiergerät (Num- 
mer 5), das Gerät von John Hall 
(Nummer 4, das Dela-Program- 
miergerät (Nummer 3)und der PP64 
von Indutronic (Nummer 2). 


Der Super-EPROMmer 


Gleich vom ersten Moment an hat 
der PP 64 von Indutronic (Nummer 
2) einen sehr guten Eindruck ge- 
macht. Er ist sehr sauber aufgebaut, 
bedarf keiner zusätzlichen Schalter 
mehr aufder Platine, hat ein ausführ- 
liches Handbuch und besticht 
durch seine Leistungsfähigkeit. Mit 
dem PP 64 können nicht nur so gut 
wie alle EPROM-Typen (siehe Ta- 
belle) programmiert werden, er ver- 
fügt auch über eine Funktion, mit 


der EPROMs von Basic aus wie ein 
Floppy-Laufwerk angesprochen 
werden. Man kann sich sogar eine 
Art Directory des EPROMSs anle- 
gen. Auch Befehle wie OPEN und 
PRINT # sind möglich, die Gerätea- 
Adresse des Gerätes ist in diesen Fäl- 
len 16. Zusätzlich zu dieser Funktion 
bietet die mitgelieferte Software eıi- 
niges an Bedienungskomfort, der eı- 
gentlich kaum Wünsche offen läßt 
(Tabelle). 

Der PP 64 beweist, daß nıcht un- 
bedingt jedes EPROM mit ein und 
demselben Programmieralgorith- 
mus gebrannt werden muß. Je nach 
gewähltem EPROM-Typ wird einer 
von vier verschiedenen Algorith- 
men verwendet. Das stellt nicht nur 
sicher, daß EPROMss die für sie opti- 
male Programmierzeit bekommen, 
sondern auch eine lange Lebens- 
dauer der EPROMes. Bei einem im- 
mer noch relativ hohen Preis für 
EPROMs ist das besonders wichtig. 
Es ist ein einfaches Rechenexem- 
pel: Ein schlechtes Programmierge- 
rät zerstört so manches EPROM 
schon nach kurzer Zeit. Ein gutes 
Programmiergerät erlaubt aber die 
EPROMs in ihrer ursprünglichen 
Funktion, nämlich als mehrfach 
lösch- und beschreibbaren Speı- 
cherbaustein zu verwenden. Die 
vier Programmieralgorithmen des 
PP 64 garantieren das. Allerdings ıst 
er mit einem Preis von 1953 österrei- 
chischen Schillingen (279 Mark) 
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auch nicht gerade billig. Zu den wei- 
teren Besonderheiten gehören eine 
Löschroutine beim Programmieren 
von EEPROMs und ein automati- 
sches Verify jedes programmierten 
Bytes. Durch seinen Anschluß am 
User-Port des © 64 ist der PP 64 uni- 
versell am © 64/VC 20 ohne weitere 
Stromzuführung zu betreiben. Alle 
Programmierspannungen werden 
aus den dort zur Verfügung stehen- 
den 9 Volt/5 Volt erzeugt. Die Bela- 
stung des Nettzteils hält sich dabei in 
Grenzen. Seine weit gefächerten 
Programmierfähigkeiten, seine 
komfortable Software und sein Nor- 
menkonformität machen den PP 64 
zum Spitzenreiter unseres Tests. Er 
schlägt damit auch unseren letztjäh- 
rigen Testsieger. 


Der Preiswerte 


Das Programmiergerät von Dela 
(Nummer 3) ist das preiswerteste 
der getesteten Geräte. Bei einem 
Preis von 159 Mark für das fertige 
Gerät (Bausatz 79Mark ohne Sockel, 
109 Mark mit Textool-Sockel) bietet 
das Dela-Programmiergerät durch- 
aus sehenswerte Leistungen. Zwar 
programmiert es nur EPROMs vom 
Typ 27xxx bis hin zum 27128, da die- 
se aber wohl die gebräuchlichsten 
sein dürften, reicht es in den mei- 
sten Fällen. Auch das Dela-Pro- 
grammiergerät wird am User-Port 
angeschlossen und kommt eben- 
falls ohne zusätzliche Schalter aus. 
So gesehen ist er sogar besser als 
unser Referenzgerät, bei dem ja im- 
mernoch zwei Schalter bedient wer- 
den müssen. Die zugehörige Softwa- 
re erfüllt fast alle Ansprüche. Es ıst 
sogar ein Monitor eingebaut, des- 
sen Funktionen durchaus professio- 
nell sind. Er kennt die Befehle LO- 
AD, SAVE, FILL, DISASSEMBLE, 
MEMORYDISPLAY, HUNT, TRANS- 
FER, GO, WALK sowie eine Hex- 
Dez-Umrechnung. Nur zwei Dinge 
sind es, die beim Arbeiten mit dem 
Dela-Programmiergerät fehlen! 
Zum einen ist keine Funktion vorge- 
sehen, um den Speicherinhalt des 
EPROMs mit dem des C 64 zu ver- 
gleichen, zum anderen wird keine 
Plausibilitätskontrolle der Eingaben 
durchgeführt. Eingabefehler beim 
Programmieren sind deshalb nicht 
auszuschließen. 

Die wesentlichste Besonderheit 
des Dela-Programmiergerätes sind 
seine zwei Programmiergeschwin- 
digkeiten. Im Normalmodus wird 
mit 50 Millisekunden programmiert, 
ein 2764-EPROM benötigt auf diese 
Weise ungefähr 7 Minuten. Im Fast- 
Modus wird die Programmıerzeit 
auf 2 bis 5 Millisekunden pro Byte 
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herabgesetzt. Das gleiche EPROM 
ist dann schon nach 22 Sekunden 
fertig. Positiv ist auch, daß leere By- 
tes ($FF) nicht programmiert wer- 
den (denn das ist ja der normale In- 
halteines EPROMs). Mit dem Einzel- 
Byte-Modus können auch Teile eı- 
nes EPROMs programmıert wer- 
den. Das Dela-Programmiergerät 
zeichnetsich vor allem durch seinen 
Preis und die doch recht gute Soft- 
ware aus. Wie sich EPROMs, die im 
Fast-Modus programmiert wurden 
auf Dauer verhalten, läßt sich leider 
erst in ein paar Jahren sagen, denn 
dann besteht die Gefahr des Daten- 
verlustes. 


Module leicht erstellt 


Das Programmiergerät von John 
Hall (Nummer 4) beschränkt sich 
ebenfalls auf die Programmierung 
der 27xxx-Reihe. Allerdings können 
mit diesem Programmiergerät auch 
EPROMs vom Typ 27256 gebrannt 
werden. Dafür kostet das John-Hall- 
Programmiergerät aber mit 198 
Mark auch 30 Mark mehr als das 
Dela-Programmiergerät. Damit sind 
die besonderen Fähigkeiten des 
John-Hall-Programmiergerätes al- 
lerdings bei weitem noch nicht er- 


schöpft r ei ihm immer 
noch Rn Re werden, 


der Rest wird aber von der sehr 
komfortablen Software eingestellt. 
Sie erlaubt vor allem das freie Verle- 
gen der Treibersoftware in ver- 
schiedene Bereiche, so daß es ın 
den seltensten Fällen zu Konflikten 
mit Programmen, die einen be- 
stimmten Speicherbereich belegen, 
kommt. Die eigentliche Besonder- 
heit dieses Gerätes ist aber die Fä- 
higkeit, von jedem Basıc-Programm 
bis zu 8 KByte Länge ein selbststar- 
tendes Modul zu erstellen. In diıe- 
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sem Modul werden Verschieberou- 
tinen und Initialisierungsbefehle au- 
tomatisch mitprogrammiert. Basic- 
Programme mit mehr als 8 KByte 
müssen aus mehreren Program- 
miervorgängen zusammengesetzt 
werden. 

Das John-Hall-Programmiergerät 
verfügt über einen automatischen 
Leertest und ıst voll menügesteuert. 
Zusammen mit der ebenfalls von 
diesem Hersteller erhältlichen 
128-KByte-Platine können somit re- 
gelrechte ROM-Erweiterungen von 
enormer Größe gebaut werden. Da 
das John-Hall-Programmiergerät 
nur einen Programmieralgorithmus 
von 50 Millisekunden besitzt, dauert 
das Programmieren eines 2764- 
EPROMs zirka 7 Minuten. Gemes- 
sen an seinen Fähigkeiten, kann die- 
sem Gerät ein befriedigendes 
Preis-/Leistungs-Verhältnis bescher- 
nigt werden. 


Es geht auch am 
Expansion-Port 


Das Thienel-Programmiergerät 
wird im Gegensatz zu den anderen 
Geräten am Expansion-Port ahge- 
schlossen. Er benötigt deshalb auch 
eine zusätzliche Stromversorgung. 
Dafür zeichnet sich das Gerät aber 
durch seine enorme Leistungsfähig- 
keit aus. Die Treibersoftware befin- 
det sich direkt auf dem Gerät und 
startet automatisch (abschaltbar). 
Zusätzlich ist sogar noch ein weite- 
rer Steckplatz für ein 2764-EPROM 
vorgesehen. Bei diesem Gerät müs- 
sen keinerlei Schalter bedient wer- 
den, denn die Auswahl der EPROM- 
Typen wird rein über Software ge- 
steuert. Fast alle derzeit wichtigen 
Typen sind programmierbar. 


Fortsetzung auf Seite 160 
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Aus eins mach vier 


Wir stellten schon mehrere geänderte Betriebssysteme für den C 64 vor. 
Das beste Beispiel ist das Hypra-Perfekt. Diese Bauanleitung setzt der ganzen 
Sache die Krone auf: Absturzfreies Umschalten zwischen vier Betriebssystemen. 


ferte eigentlich das Hypra- 

Load-Programm in der Be- 
triebssystemversion, welches ein 
neues EPROM im Kernalsteckplatz 
U 4 erfordert. Mit etwa 98 Prozent 
der Programme funktioniert dies 
hervorragend. Für die restlichen 2 
Prozent, mit denen es Schwierigkei- 
ten gibt, hilft allerdings nur, das Ori- 
ginalkernal wieder einzusetzen. 
Meistens ist das der Fall, wenn 
Kassetten-Routinen benötigt wer- 
den. Eine Umgehung des ständigen 
Ein- und Ausbaus bietet sich mit ei- 
ner Betriebssystemumschaltung an. 
So könnte ein Programm mit Hypra- 
Load geladen und anschließend auf 
das Originalsystem zurückgeschal- 
tet werden. Dadurch wäre eine 
lOOprozentige Programmverträg- 
lichkeit gewährleistet. Allerdings 
nur, wenn beim Umschalten, der 
Computer nicht »abstürzt«. 

Aus diesen Gedanken heraus 
wurde diese Schaltung entwickelt. 
Sie hat die oben beschriebenen Vor- 
teile und bietetnoch die Möglichkeit 
der Umschaltung zwischen dem 
Original-Kernal und drei zusätzli- 
chen Betriebssystemen. 


Etwas Theorie 


Wie wird dem Computer ein Um- 
schalten des Betriebssystems mitge- 
teilt? Für den Computer stellt das 
Betriebssystem eine Ansammlung 
von Befehlen, Sprungadressen und 
Routinen in einem bestimmten 
Aareßbereich dar. Beim C 64 ıst es 
der Bereich 57344 bis 65535 ($E000 
bis $FFFF). Will der Computer aus 
irgendeinem Grund auf das Be- 
triebssystem zugreifen, aktiviert er 
den Speicherbaustein für diesen 
Adreßbereich und legt ıhn auf den 
Adreß- und Datenbus. Was für eine 
Art Speicherbaustein (ROM, RAM 
oder EPROM) das ist, Ist ihm völlig 
egal. Hauptsache er findet in dem 
Adreßbereich einen Speicher vor. 

Für uns ist es aber nun sehr wich- 
tig zu wissen, nach welchem System 
der Computer seine Speicherbau- 
steine verwaltet, damit ohne Absturz 


D le Idee zu dieser Schaltung lie- 
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Bild 1. Schaltbild der Umschaltplatine. Es wurde übrigens mit dem Malprogramm 
»Hi Eddi« aus der Ausgabe 1/85 64’er gezeichnet. 
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ein neues Betriebssystem aktiviert 
werden kann. Das Zusammenspiel 
der einzelnen RAM/ROM-Baustei- 
ne wird von einem einzigen IC ge- 
steuert. Dieses IC befindet sich im 
Steckplatz U l7undisteinsogenann- 
ter PLA-Chip (Programable-Logic- 
Array). Dieses IC wird bei der Ferti- 
gung nach Herstellerangaben pro- 
grammiert und erhält so besondere 
Logikeigenschaften, die eine Viel- 
zahl von herkömmlichen Gatter- 
funktionen nachbilden. Dieser PLA- 
Baustein ist im C 64 dem Prozessor 
untergeordnet und nimmt diesem 
weitgehend die Verwaltung der 
Speicherbausteine im gesamten 
Adressierungsbereich ab. Die PLA, 
auch Adreßraummanager genannt, 
sorgt dafür, daß auf entsprechende 
Befehle der CPU immer der richtige 
Baustein angesprochen wird und 
daß immer nur ein RAM/ROM-Bau- 
stein aktiv auf dem Adreß- oder Da- 
tenbus zugreift, damit keine »Kurz- 
schlüsse« entstehen. Jeder RAM/ 
ROM-Baustein ist über eine Leitung 
mit dem Manager verbunden. Sie 
heißt Chipselect- oder Enablelei- 
tung. Sie aktiviert die einzelnen 
speicher über ein Low-Signal und 
blendet dadurch den entsprechen- 
den Adreßbereich ein. Um bei- 
spielsweise das Betriebssystem zu 
aktivieren, legt der Manager die 





Kernalleitung auf Low-Pegel (Pin 20 
am Kernal-ROM) und hält alle ande- 
ren Leitungen aufHigh-Pegel. Damit 
ein anderes Betriebssystem akti- 
viert wird, muß man nur die Kernal- 
leitung zum anderen Betriebssy- 
stem durchschalten und es natürlich 
auch mit den Adreß- und Datenlei- 
tungen verbinden. Will man drei 
neue und das alte System benutzen, 
benötigt man eigentlich nur einen 
4fach Umschalter, der die Chipse- 
lect-Leitung verteilt. Allerdings hat 
die ganze Sache einen Haken. 

Der Computer läuft mit einer Takt- 
frequenz von 1 MHz. Entsprechend 
schnell werden die einzelnen 
Speicher-ICs auch geschaltet. Wür- 
de man mit einem einfachen Um- 
schalter ein anderes Betriebssy- 
stem auswählen, wäre während der 
Umschaltphase, die ja immerhin 
selbst bei »Fingerakrobaten« einige 
Millisekunden dauert, gar kein Be- 
triebssystem verfügbar und der 
Computer würde ins »Leere« sprin- 
gen. Um das zu verhindern, darfei- 
gentlich nur umgeschaltet werden, 
wenn auf das Betriebssystem gera- 
de nicht zugegriffen wird. Hier setzt 
diese Schaltung an. Sie speichert 
den Umschaltimpuls so lange, bis 
das Kernal-ROM nicht mehr aktıv ıst 
und gibt dann das andere ange- 
wählte Betriebssystem frei. 
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Bild 4. So muß der Adaptersockel an die Platinenrückseite gelötet 


werden. 


Wie funktioniert die absturzfreie 
Umschaltung? 

Zuerst etwas Grundsätzliches zur 
Arbeitsweise der beiden ICs. Soll- 
ten Sie sich für die Technik nicht in- 
teressieren, können Sie dieses Kapi- 
tel auch überschlagen. 

IC 1 beinhaltet vier D-Register (bi- 
stabile Gatter, Flip-Flops) mit zweı 
Eingängen E und D (Bild ]) und zwei 
Ausgängen O und OÖ. Der Eingang E 
ist ein Enable das heißt eın 
Freigabe-Eingang. Liegt dieser Ein- 
gang auf High-Pegel, wird das an D 
anliegende Signal sofort zum Aus- 
gang Q übertragen. Q führt dage- 
gen immer das entgegengesetzte SI- 
gnal zu © Deshalb auch der Strich 
über dem Buchstaben. Wird an E 
ein Low-Signal gelegt, wird das ın 
diesem Augenblick an D anliegen- 
de Signal gespeichert. Das heißt, 
daß Signaländerungen an D nicht 
wirksam sind, solange E auf Low- 
Pegel liegt. Das D-Register ist also 
nichts anderes als ein I-Bit-Speicher, 
den man freigeben oder sperren 
kann. DR 1-3 sind völlig identisch. 

Die technische Bezeichnung für 
IC 2 lautet: 3-Bit-Binärdecoder/De- 
multiplexer (3-8) mit Adressen- 
Zwischenspeicher Das hört sich 
komplizierter an als es ist. Die drei 
Eingänge A0 bis A2 (Bild ]) wirken 
so, wie die D-Register DRI-3. Der 
Eingang LE (Latch Enable) bestimmt 
die Funktion der Adreßeingänge AO 
bis A2. Liegt LE auf High-Pegel, wer- 
den die zuletztan den Eingängen AO 
bis A2 anliegenden Pegel gespei- 
chert. Liegt dagegen ein Low-Pegel 
an LE, werden die Signale an AO bis 
A2 an die Ausgänge weitergege- 
ben. Nun sind bei diesem IC die 
Ausgänge der Speicher nicht her- 
ausgeführt, wie bei IC 1, sondern 
führen auf einen internen | aus 
8-Decoder. Die Ausgänge Q0 bis Q 
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Bild 5. Die fertige Umschaltplatine. Achten Sie auf die Draht- 


Adapter 


Bild 3. Bestückungsplan. Vergessen Sie bitte nicht die Drahtbrücken auf der 
Bestückungsseite einzulöten. 





7 sind die Ausgänge dieses Deco- 
ders, der wie folgt arbeitet: Von seı- 
nen acht Ausgängen kann immer 
nur einer Low-Pegel führen. Wel- 
cher, das bestimmt die als 3-Bit- 
Binärzahl an den Eingängen AO bis 
A2. Mit 3 Bit lassen sich ja bekannt- 
lich die Dezimalzahlen von 0 bis 7 
darstellen. Als Beispiel: an A0bis A2 
liegt die Bitkombination 101 an. Dezı- 
mal ist das 5, somit liegt Q5 auf Low- 
Pegel, und zwar so lange, wie diese 
Bitkombination anliegt. Alle ande- 
ren Ausgänge führen High-Pegel. 
Weiterhin hat IC2 zwei Freigabe- 
Eingänge El und E2, die vollkom- 
men unabhängig von den anderen 
Eingängen arbeiten. Mit El oder E2 
können alle Ausgänge 00-07 
gleichzeitig auf High-Pegel gelegt 
werden. Dazu muß an El ein Hıigh- 
oder an E2 ein Low-Signal anliegen. 


Anschaulicher wird es an einem 
Beispiel: Wir wollen mit Hilfe eines 
3-Bit-Wortes irgendein Sıgnal, sagen 
wir ein Rechtecksignal, nacheinan- 
der an vier verschiedene Stellen leı- 
ten. Dazu legen wir das 3-Bit-Wort an 
die Adreßeingänge A0biıs A2an.El 
wird auf Masse gelegt, da nur ein 
Freigabeeingang benötigt wird. 
Wie bringen wir aber nun zum Ber- 
spiel Ausgang Q5 dazu, unser Recht- 
ecksignal zu übertragen? Zuerst 
wird an A0 bis A2 die Bitkombina- 
tion 101 angelegt, mit der wir Aus- 
gang Q5 bestimmen. Dann wird das 
Rechtecksignal gleichzeitig an LE 
und an E2 gelegt. Liegt das Recht- 
ecksignal gerade auf High-Pegel, 
sind alle Ausgänge, somit auch OS, 
auf High-Pegel. Geht das Rechteck- 
signal auf Low-Pegel, gibt E2 die 
Ausgänge frei, und das Low-Signal 
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an LE überträgt sıch auf den adres- 
sierten Ausgang; hier ©5. Geht das 
Rechtecksignal wieder auf High- 
Pegel, beginnt alles von vorn. Das ist 
genau das, was wir wollen. Wird an 
A0 bis A2 Jetzt ein anderer Ausgang 
adressiert, wird das Eingangssignal 
auf den anderen übertragen. 

Nachdem nun die Funktion der 
einzelnen ICs etwas verdeutlicht 
wurde, zur eigentlichen Umschal- 
tung. Die Auswahl des Betriebssy- 
stems erfolgt über die Schalter Sl (a 
und b). Die Auswahlsignale gelan- 
gen nicht direkt auf die Adreßein- 
gänge, sondern erst über dıe D- 
Register DRl und DR2. Die beiden 
Register haben die Aufgabe, den 
Pegelwechsel vom Schalter »schön 
rechteckig« zu machen. 

Hinweise zum Aufbau 

Das Layout für die Umschaltplati- 
ne zeigt Bild 2, die Stückliste Tabelle 
l. Beachten Sie beim Ätzen, daß eini- 
ge Leiterzüge sehr schmal sind und 
nicht verschwinden. 

Nach erfolgreicher Herstellung 
der Leiterplatte wird diese gebohrt. 
Die angedeuteten Löcher zum An- 
schluß der Steckverbinder dürfen 
nicht durchbrochen werden, da die 
Steckverbinder als Adaptersockel 
später direkt von hinten auf die Platı- 
ne gelötet werden. Zuerst sollten die 
Drahtbrücken eingesetzt werden 
und dann die Widerstände und IC- 
Sockel. Zur Befestigung der Adap- 
tersockel lötet man diese erstanden 
zwei Endpunkten an und richtet sie 
rechtwinklig aus. Danach sollte man 
ausprobieren, ob die ganze Sache 
auch paßt. Erst dann sollten die 
Steckverbinder endgültig mit der 
Platine verlötet werden. Den 4fach- 
Umschalter schließt man am gün- 
stigsten mit Flachbandleitung an. 
Um Leiterzüge auf der Platine zu 
sparen, wird die eigentliche Ver- 
drahtung des Schalters erst an den 


Anschlußpins des Schalters selbst 
Aurchgeführt. Der Schalter wird laut 
Schaltplan »binär« verdrahtet: die 
Schalterausgänge müssen beim 
Weiterschalten die Binärzahlen 
00-01-10-11 liefern. Das ist einfach 
möglich, indem man die entspre- 
chenden Schaltereingänge mit R4 (5 
Volt) verbindet oder offen läßt. 
Durch das Offenlassen entsteht 
über R2 oder R3 Low-Pegel. 

Die Leuchtdioden sollen eigent- 
lich nur dem Spieltrieb von Compu- 
terfreaks entgegenkommen. Die 
LEDs werden über die noch freien 
vier Kontakte des Umschalters ge- 
schaltet. Die Versorgungsleitung für 
die Leuchtdioden kommt über Rl 
von der Platine. Wollen Sie die LEDs 
nicht einbauen, kann der 470-Ohm- 
Widerstand selbstverständlich er- 
satzlos entfallen. Es ist dann auch 
nur noch ein 2x4-Umschalter not- 
wendig. 

Ist die Platine nun so weit be- 
stückt, Können die Betriebssysteme 
eingesetzt werden. Dazu kommt das 
Kernal-ROM aus Steckplatz U4 in 
die 24polige Fassung. Wenn Sie eine 
C 64-Version mit fest eingelötetem 
ROM haben, sollten Sie sich von ei- 
nem Lötkolben-Profi eine Fassung 
einbauen lassen. In die Fassungen | 
bis 3 auf @emPpkiihewerJen die 
Betriebssystems-EPROMs gesteckt. 
Achten Sie unbedingt darauf, die 
EPROMs und das ROM richtig her- 
um in die Fassungen zu stecken (Be- 
stückungsplan, Bild 3). Möglich sind 
nur 2764- oder 27C64-I’ypen, die oh- 
ne Schwierigkeiten zu beschaffen 
sind. Die C-Typen sind CMOS- 
Ausführungen und bieten den Vor- 
teil der geringen Stromaufnahme. 
Hat man nur ein neues Betriebssy- 
stem, muß dieses unbedingt ın Fas- 
sung 1 eingesteckt werden, das 
nächste in Fassung 2 und das dritte 
in Fassung 3. Sollte eine Fassung frei 





Bild 2. Das I : 1-Platinenlayout der Umschaltplatine. 
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bleiben, darf diese natürlich nicht 
über den Schalter angewählt wer- 
den. Ein Absturz des Computers 
bliebe mit Sicherheit nıcht aus. 

Ist alles soweit fertig (vorher noch- 
mal auf Lötbrücken untersuchen!), 
kann die Platine in den Steckplatz 
U4 eingesetzt werden. Die EPROMs 
müssen nach dem Einsetzen links 
von U4 stehen und alle Markie- 
rungskerben der ICs auf die C 
64-Rückseite zeigen. Der Wahl- 
schalter kommt zunächst in Stellung 
l. Nach dem Einschalten des Com- 
puters sollte dieser sich normal mel- 
den. Dann kann umgeschaltet wer- 
den. Schaltet man auf Hypra-Per- 
fekt, dürfte auf dem Bildschirm kei- 
ne Veränderung feststellbar sein. 
Aber an der geänderten Funktions- 
tastenbelegung wird es schnell klar, 
daß man ein anderes Betriebssy- 
stem aktiviert hat. Noch ein Wort zur 
Umschaltung: Der Computer wird 
natürlichnur dann nicht»abstürzen«, 
wenn innerhalb der Betriebssyste- 
me zur Umschaltzeit die gleichen 
Routinen benutzt werden. Konkret: 
Benutzt man ein System mit Hypra- 
Load, darf natürlich während des 
Ladensnicht aufdasnormale Kernal 
umgeschaltet werden, weıl die La- 
deroutine mit der originalen nicht 
identisch ist. Bei anderen Betriebs- 
systemen muß man das von Fall zu 
Fall ausprobieren. Am sichersten ist 
ein Umschalten immer im Direktmo- 
dus. Kaputtgehen kann während 
des Umschaltens nichts. Spätestens 
nach einem Reset ıst der Rechner 
wieder einsatzbereit. 

(Andreas Gerzen/hm) 


Umschalter 3x4 
trennend 


2 Stück 
1 Stück 
3 Stück 


Schaltdraht für Brücken 
Sfach-Flachbandleitung, etwa 20 cm 
Adaptersockel 

Da sie schwer zu beschaffen sind, hier 
einige Bezugsquellen: 

Typ AP 119/G 20polig (deshalb 2 Stück) 
Firma Ratev, Lochnerstr. |, 4030 Ratingen 
Typ K5 50polig (deshalb nur 1 Stück) 
Firma Bürklin, Kölner Str. 42, 4000 Düs- 
seldorf 


Tabelle 1. Stückliste zur Umschaltplatine 
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Auf zu neuen Welten 


Der parallele IEEE-Bus ist eine der wichtigsten Verbindungen der »großen« 
Commodore-Computer zur Außenwelt. Mit unserem Selbstbau-Interface 
eröffnen Sie Ihrem C 64 die gesamte Palette der Commodore-Peripherie. 


hne Zweifel, es lohnt sich! Spei- 
cherkapazitäten von mehreren 
MByte, beschleunigte Lade- 
und Speichervorgänge sowie eine 
rasante Dateiverarbeitung machen 
die »großen« Peripheriegeräte, wie 
das Diskettenlaufwerk CBM 4040, 
interessant. Das einzige Problem ist 
die im © 64 eingebaute Schnittstelle. 
Der serielle IEEE-488-Bus (auch als 
IEC-Bus bezeichnet) ist nicht zum 
Anschluß dieser Geräte geeignet. 
Aber der © 64 wäre nıcht der © 64, 
der seinen weltweiten Siegeszug an- 
getreten hat, wenn man dieses Hin- 
dernis nichtüberwinden könnte. Un- 
ser Selbstbau-Interface verwandelt 
den Expansion-Port ın eine IEEE- 
488-Schnittstelle, wıe sie von den 





OÖ 


me an den C 64 anschließbar. Der 
6522 verträgt das Timing des C 64 
nicht und benötigt deshalb noch eı- 
ne Zusatzschaltung, die das Taktsı- 
gnal des C 64 etwas verzögert. Der 
6821 läßt sich übrigens durch die 
stromsparende CMOS-Varlante 6321 
problemlos ersetzen. 

Die Daten werden vom © 64 aller- 
dings nicht direkt auf den IEEE- 
Bus, sondern über einen Bustreiber 
7415245 geführt. Dies ıst nötig, um 
den 6821 (6321) vor Beschädigung zu 
schützen und zugleich den sicheren 
Betrieb von mehreren Geräten am 
Bus zu gewährleisten. Die Steuersı- 
gnale werden dabei über den In- 
verter-Baustein 4069 geführt. 


des Controllregisters. Ist es gelöscht 
(0), dann ist das Datenrichtungsregi- 
ster selektiert. Im Datenrichtungsre- 
gister ist jeder Ein/Ausgabeleitung 
ein Bit zugeordnet. Der Zustand die- 
ses Bits legt fest, ob die betreffende 
Leitung Eingang oder Ausgang ist. 
Ist das Bit gesetzt, so ist die zugeord- 
nete Leitung Ausgang, Ist das Bit ge- 
löscht, so wird die Leitung als Ein- 
gang geschaltet. Beim IEEE-488-Mo- 
dul sind diese Leitungen wie in Bild 
] abgebildet, geschaltet. 

Natürlich kann man das IEEE-Mo- 
dul auch als eine Art Userport-Er- 
weiterung benutzen. In der Regel 
wird man aber Geräte wie Disket- 


" o .o | 

CBM-Computern her bekannt ist. Die Realisierung _ TRW- Signal Amphenol- 

Dabei sind im wesentlichen zwei Stecker Stecker 
Hindernisse zu überwinden. Einer- Der Weite NP Parallel In- Se; Dane 
seitsmüssen die Daten desC 64zwi- terface Adapter)-Baustein 6821 ent- | 5. > Er Pin 2 
schengespeichert und aufbereitet hält zwei Ports. Jeder Port verfügt | pin3 DIO 2 Pin 3 
werden. Ändererseits muß dem C über drei Register: das Datenein- | pin4 DIO 3 Pin 4 
64 mitgeteilt werden, daß er seine gabe- und Datenausgaberegister, Pin 5 EOI Pin5 
Daten nicht mehr wie gewohnt se- das Datenrichtungsregister und das Pin 6 DAV Pin 6 
riell, sondern parallel ausgibt. Die Control-/Statusregister. Diese Regı- Pin 7 NRFD Pin 7 
Hauptaufgabe der Bedienung des ster wurden aufeinige bisher unbe- | Pin8 NDAC Pin 8 
IEEE-Busses übernimmt dabei ein nutzte Register des C 64 gelegt. Im Pin 9 IFC Pin9 
6821-Schnittstellenbaustein. Mehre- einzelnen befinden sich diese in fol- | Einl0 ze En 
re Gründe sprechen für diesen genden Speicherzellen: Sn n a Pin Il 

: x | 2 2 rın la GND Pin 12 
Ein/Ausgabebaustein. Daistzumei- $DEO00 Datenregister A/Daten- DAR DIO 4 Pin 13 
nen der ausgesprochen günstige richtungsregister A Pin B DIOS Pin 14 
Preis. EristinnahezujedemElektro- $DEO0l Controllregister A Pin C DIO 6 Pin 15 
nikversand unter MD Markzuhaben. $DEO2 Datenregister B/Daten-  PinD DIO7 Pin 16 
Ein 6526, wie erim C 64 sogar gleich richtungsregister B PinEbisN GND Pin 17 bis 24 
zweimal vorhanden ist, kostet dage- $DEO03 Controllregister B Fe, ER 77 


Bild 2. Verdrahtungsschema | 


für ein Peripheriekabel 


Die Unterscheidung zwischen 
dem Datenrichtungs- und Ein/Aus- 
gaberegister erfolgt über das Bit 2 


gen zirka 45 Mark. Zum anderen ist 
der 6821, im Gegensatz zum eben- 
falls möglichen 6522, ohne Proble- 





PAO bis PA7 Ein-/Ausgang DO bis D7 

CA2 steuert Datenrichtung des 7418245 

PBO EOI (End Or Identify) Ausgang 

PBl EOI (End Or Identify) Eingang 

PB2 DAV (Data Valid) Eingang 

PB3 DAV (Data Valid) Ausgang 

PB4 NRFD (Not Ready For Data) Eingang 

F NRFD (Not Ready For Data) Ausgang 
NDAC (No Data Accepted) Eingang 
NDAC (No Data Accepted) Ausgang 
ATN (Attention) Ausgang 


Achtung! Erst mit CTRL und + einschalten 
@ = Auslesen des Fehlerkanals 
= Directory ohne Programmverl. 
= New, Initialize, Rename,Scratch, Copy 
= Laden von Programmen 
!Name = Laden und starten 
— Name = Speichern von Programmen 
Auch Joker und Fragezeichen im Namen sind erlaubt. 


@$ 
@N,LR,SO 
/Name 


Bild 3. Auch die DOS-5.1-Befehle kennt das IEEE-Interface 


Bild 1. Beschaltungsplan des IEEE-488-Interfaces 
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tenlaufwerke (4040, 8050, 8250, 2031, 
SFDI1001) oder aber Drucker und 
Meßgeräte anschließen. Dazu be- 
nötigt man noch eın spezielles An- 
schlußkabel, das aufder Computer- 
seite mit einem TRW 251-12-50-170 
und auf der Peripherieseite mit eı- 
nem 24poligen Amphenol-Stecker 
verbunden ist. Die Anschlußbele- 
gung ist ım Verdrahtungsschema 
(Bild 2) abgebildet. 


Die Software 


Wie bei fast allen Erweiterungen 
des Betriebssystems trat auch beim 
IEEE-488-Interface das Problem des 
Speicherbereichs auf. Die Lösung 
sollte sich mit fertiger Software be- 
stens vertragen und trotzdem sofort 
nach dem Einschalten zur Verfü- 
gung stehen. Anstelle der Kasset- 
tenroutinen wurde die Treibersoft- 
ware für das Interface einprogram- 
miert. Da dort aber noch Platz war, 
haben wir das von der 'Test/Demo- 
Diskette bekannte DOS 5.1 imple- 
mentiert. Die zusätzlichen Befehle 
dieser DOÖS-Erweiterung sind in Bild 
3 zusammengefaßt. Um aber Pro- 
bleme mit fertiger Software auszu- 
schließen, muß das DOS 5.l mitden 
Tasten CTRL und + eingeschaltet 
werden. 

Der wesentlichste Grund, warum 
sich Diskettenlaufwerke wie die 
sehr gute SFD 1001 bisher nicht 
durchsetzen konnten, Ist einerseits 
der Preis und andererseits das vom 
1541-Floppy-Laufwerk unterschied- 
liche Aufzeichnungsformat. Kaum 
ein Änbieter professioneller Softwa- 
re konnte sich bisher dazu entschlie- 
ßen, seine Programme auch in die- 
sem Format anzubieten. Durch eı- 
nen kleinen Trick Ist es möglich, mit 
unserem Interface Programme vom 
1541 auf das 8250-Format (das SFD- 
1001-Laufwerk ıst praktisch eın hal- 
biertes 8250-Laufwerk) zu überspie- 
len. Die Speicherzelle 2 des C 64 
wurde zum Steuerregister umfunk- 
tioniert. In Normalfall steht dorteine 
4. Das bedeutet, daß der Drucker 
auch mit dem IEEE-488-Interface 
weiterhin seriell betrieben werden 
kann. Und nun der Trick: Schreibt 
man in Speicherzelle 2 eine 8, so 
wird nicht das parallele Disketten- 
laufwerk, sondern die 1541 ange- 
sprochen. Stellt man die Geräte- 
adresse des parallelen Laufwerks 
auf9, so kann man mitjedem Kopier- 
programm für zwei Laufwerke vom 
Laufwerk 8 (1541) auf Laufwerk 9 
(zum Beispiel SFD 1001) Programme 
übertragen. Die normale Geräte- 
adresse (ohne Umstellung) des pa- 
rallelen Laufwerks ist aber weiter- 
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Bild 4. Layout Platinenoberseite 
des IEEE-Interface 









SER OrLngee\ 


Bild 6. 
Fertig aufgebautes 
IEEE-488-Interface 


hin die 8. Natürlich können Sie auf 
diese Weise auch Jede andere er- 
laubte Geräteadresse seriell an- 
sprechen, Sie brauchen dazu nur 
die Geräteadresse In Speicherzelle 
2 zu schreiben (Beispiel: POKE 2,8 
um das 154l-Laufwerk anzuspre- 
chen). 


Das Listing 


Die Software (Listing Il) wird iM 
Overlay-Verfahren auf das Original- 
Kernal kopiert. Dazu wird vom Pro- 
gramm zunächst das Betriebssy- 
stem in den Bereich ab $6000 ver- 
schoben. In einer POKE-Schleife 
werden die notwendigen Verände- 
rungen vorgenommen. Nach Been- 
digung des Programmablaufs befin- 
det sich im Speicherbereich des C 
64 ab $6000 bis $8000 das komplett 
neue Kernal. Sie können es nun ent- 
weder direkt mit einem Monitor ab- 
speichern (was zu empfehlen ist) 
oder aber gleich ın ein 2764-EPROM 


_ 
N en ID MN A 


gr 


PH 


a 


Bild 5. Layout Platinenunterseite 
des IEEE-Interface 


100 vo 
N6900u0 


u % 
mi 


brennen. Dieses EPROM wırd dann 
mit einem Adapter anstelle des 
Kernal-ROMs in den U4-Steckplatz 
des C 64 eingebaut. Die Herstellung 
einessolchen Adapters haben wır In 
Ausgabe 4/85 ausführlich beschrie- 
ben. Es werden aber auch von ver- 
schiedenen Herstellern ähnliche 
Adapter angeboten. 
Wie erhalte ich meine Platine? 

Das Platinen-Layout und das ferti- 


IC 4069 Inverter 
IC 7418245 Bustreiber 

IC 6821 Ein-/Ausgabebaustein 
ersatzweise: 

IC 6321 


Sockel l4polig, gedreht 
l Sockel 40polig, gedreht 
l Kondensator 10 «F 


Bild 7. Diese Bauteile benötigt 
man für das IEEE-Interface 
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ge IEEE-Interface (Arbeitsversion) 
im Maßstab 1: 1 finden Sie ın Bild 4, 
Sund6. Das 44polige Ende der Platı- 
ne ist zum Einstecken in den Expan- 
sion-Port vorgesehen. An der 24poli- 
gen Seite werden die Peripheriege- 
räte angeschlossen. Die Bestük- 
kungsseite der Platine erkennen Sie 
an den zwei Lötpunkten für einen 
Kondensator. Er muß sich in diesem 
Fall rechts oben auf der Expansion- 
Port-Seite befinden. Zur Bestückung 
legen Sie die Platine so vor sich hın, 
daß diese beiden Lötpunkte rechts 
oben sind, und die Expansion-Port- 
Seite von Ihnen weg zeigt. Setzen Sie 
nun in die linken vorderen Lötpunk- 


te einen 20poligen Sockel und in die 
rechten Lötpunkte einen l4poligen 
Sockel. Die Sockelkerben zeigen 
dabei immer nach links. Den 6821 
(6321) sockeln Sie analog dazu. Löten 
Sie nun den Kondensator (10 u F) so 
ein, daß +5 V des Kondensators nit 
Pin 2 und 3 auf der © 64-Steckleiste 
verbunden sind. Der äußere Pın 
liegt an Masse. Nach dem Einlöten 
der Sockel brauchen Sie nur noch 
die Bausteine (Kerbe auf Kerbe) ein- 
setzen. Das Interface ist nun fertig. 
In Bild 7 finden Sie nochmals eine 
komplette Stückliste. Falls es Ihnen 
nicht möglich sein sollte, die Platine 
selber zu ätzen, können Sie sıch an 


die unten angegebene Adresse 
wenden, dort hilft man Ihnen wetter. 
Unter dieser Adresse ist die Leer- 
platine (35 Mark), der Bausatz inklu- 
sive EPROM (75 Mark) und das Fer- 
tiggerät inklusive EPROM (98 Mark) 
zu haben. 

Noch ein paar Tıps zum Abschluß: 
Überprüfen Sie alle Kontakte auf 
Durchgang. Stecken Sie das Modul 
nur in den ausgeschalteten Compu- 
ter und vergessen Sie den Adapter 
für das Kernal-EPROM nıcht. 


(Ernst Schöberl/Arnd Wängler/ah) 


Info: Frank u. Hoffmann, Wotanstr. 9, 8000 München, Tel.: 
089/1 782546 


iB FOEE 554,765:POKE 55,B:CLR B29> 1150 REM HH HRRHRRH <219> 
15 0OF=32768 B96: 1155 REM #*** BLOCK & ##%* 307: 
28 FRINT" {CLR,3SDOWN>KOFIEREN DER ROM-DATEN 1165B REM HH HHRRRR% <229> 
NACH EFLQQRB":FRINT <B775 1178 DATA 852859,71,1166& <235> 
3B FOR I=6*4096 TO 8*42964-1:FOKE I,FEEK(I+ 1171 DATA 765 67.251. 76,28,251,41,247,141,8 
OF}=:NEXT I <198> „221,968,133,149,768,59,251,120,532 1257 
40 REM EINSCHALTFARBEN SETZEN «217: 1172 DATA 160,238,32,190,237,32, 133,2389,32 
5@ PDEE 58677-0F,5: REM ZEICHEN GRUEN 205, ‚„167,2538,48,251,88,76,36,148,48,5 <199> 
&2 FOKE HRA353-0F,B: REM RAHMEN SCHWARZ «0237 1175 DATA 56, 102,148,208, =) "72,32,239,250,1 
78 FOKE 6B6434-0F,B: REM HINTERGR. SCHWARZ 248> Q4A, 133,149, 24 N 76,2508,258,173 815: 
82 PRINT"LESEN DER DATA-ZEILEN":PRINT:PRIN 1174 DATA Q.221,9, 8, 141,8,221,169,95,44,186 
T <2B51> 2,63,76,6,231,352;198,237,138,162 <124> 
182 T=B <154> 1175 DATA 10,282,208,253,178,32, 33,238,76 
118 T=T+1:READ ArIF A=Q THEN 2408 <202> ‚„151,2538,76,81,251 “1952 
128 REAB B: REM ANZAHL DER BYTES Beten na EEHEERKRKERRREHERE 249; 
138 READ Fi: REM FRUEFSUMME BI72 85 REM #*#* BLOCK 7 ##*# 238} 
148 P2=B:PRINT"BLOCK ";T3;" {2SPACE>"; <187> 11908 REM KHK KHHKRRKRRRRRr 8853} 
1598 FOR I=A-OF TO A-OF-i+B <128> 1208 DATA 652537,11,1586 ‚285: 
16&B READ D:FOKE I,D:FZ=F2+D <211> 1281 DATA 281,4,176,7,167,8,133,1868,2534,23 
170 NEXT I <1177> 4,23 <1B1> 
188 IF P2<X>Pi1 THEN 218 224 > 1218 REM ##HHKKHRR HERR “823> 
198 FRINT" {3SFACE}IOE" <B55}> 1?2?25 REM x#** BLOCK 8 ###*+ 079° 
zZu@ GOTO 118 CDDT: 12320 REM KHK HER HK <DAE > 
218 PRINT"PRUEFSUMME FALSCH: ";P23" STATT 1242 DATA 429759,11,1586 2527 
PISPRINT 254 > 1241 DATA 201,4,176,7,169,8,133,186,234,23 
22B GET Af:IF At=""THEN 2208 <B61 > 4,234 "141> 
2358 GOTO 118 a1 > 1258 REM #FRRRHRRRRRERRRRRR <B653 
248 PRINT:FPRINT"FERTIG!":END <BR > 1255 REM *x*** BLOCK 9 *##%*% <119> 
1398 REM #3 RR RUE RREERR <A&bB: 1?2&B REM ZRH R RK RER Rr <B73 
1005 REM #*#**%* BLOCH i *##** <187: 1278 DATA 52999,3,295 188: 
1B1B REM KRHHRHRHHHHHEErr 878; 1272 DATA 32,12,252 <B56> 
10290 DATA 57817,2,170 „176 1?28B REM ##FHHHRRHRRRRRRE RR “156: 
1025 DATA 142,8 <133> 1285 REM x***#* BLOCK 19 xx*## <181> 
1BZB REM KH HH RR RER <a99 > 12928 REM HR HH <146: 
10835 REM **** BLOCK 2? ##*%+ <139> 139090 DATA 549884,192,22377 <155> 
1048 REM KHK KHK HERR R <199> 13901 DATA 32,21,252,48,6,32,164,248, 203 12% 
1052 DATA 57895,2,178 <213> 237,72,36,148,168,18,56,182,163,5 @31> 
1855 DATA 162,8 <1653> 1582 DATA 119,250, 70, 148,78, 163,104, Saga 
1QB6B REM KERRRKEHRRERERFRR <129> 9,169,86, 141,2,222, 169,4,44,2,222 B38:> 
128645 REM **** BLOCK 3 ##%*%* <17B> 1303 DATA 248,251, 169,68, 141 ‚3,222,169, 85, 
1878 REM #RKHHHHHEHRRRRR 13273 >6,165,16,2,103, 87, 141,2,222, 1753 2323 
180 DATA 588598,3,527 <232> 1304 DATA Zu 222, 41 ,80,201,80, 240,86,157,48 
1881 DATA 7&,282,251 CE7Z> „141,1,222,169,255,141,908,222,169 <237> 
1092ZB REM HR HEH EHER <159> 1305 DATA 52,141,15 222, 165, 149,73,255,141, 
1095 REM **** BLOCK 4 *#%*%* <2@1> 0,222,169,16, 44 „2.222,240, 249,169 <037> 
11BQ REM AAHHHRKKERRERERRRR <169> 1304 DATA 8,13.2,222.141,2,222,169,255,141 
1110 DATA 6426858,3,370 <@14” „7,221,169,25,141,15,221,1689,0,141 <Qu8 
1111 DATA 76,64,258 <164> 1507 DATA 7,221,173,7,221,2408,17,44, 2,222, 
1128 REM KRHMHKRRREHHRIRHH <18977 890,2465,169,86,141,2,222,1697, 255,141 «138? 
1125 REM ##*** BLOCK 5 #%#%%* ı232> 1598 DATA 9,222,24,96,44,133,2,16,10,52,22 
113B REM KHRHRRRHRERERRRRR <199> 3429, 208,207 '240,3,169, 128,44,169 <B87> 
1148 DATA 59576,1,138 <B32> 1397 DATA 3,32,28,254, 88,24,144, 220, 153,14 
1141 DATA 130 144 > 7,352,118,2590,169,52,141, 3,222,96 <245> 


Listing 1. Treibersoftware für das IEEE-488-Interface. Beachten Sie bitte die Eingabehinweise auf Seite 77. 
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13520 
15325 
1338 
1348 
1541 


>46 


1547 


1548 


13497 


1398 


1368 
1365 
1378 
1588 
1381 


1382 


1383 
15378 
1395 
1428 
1418 
1411 
1428 
1425 
1430 
1440 
1441 
1450 
1458 
1470 
1488 
1478 


15082 


152 
1525 


1554 
1542 
1541 


1542 


1543 


"> DATA 


DATA 32,21,252,48,3,76,64,237,76,11B, 

2590,32,21, 252,48, 18,128 

REM KHK KEHRHHERERRR 

REM #*#%* ELOCK 11 *#%*%* 

REM HH HERE. 

DATA en 

DATA 32,142,238,76,243,237,32,21,252, 

48 ‚9,32 17,237, 76,2,2398,167,95,44 

DATA 1697 0 ches, 76 ne Du z 

1,252,48, 2487173505 227,76, 193572 

sale 32,21,252,48, &,32,54,. Te 75 „224, 
37 ,1355,149,32,110,252,71879, 246,141 

nah 2,222.,169, 32,141, 5 „222,24, Jos Ss 
21,252,48,6,32,94,237,76,1090237 

DATA 76,228 ,250,32,21,252, 48,6,1290,16 

2,08,76,22,239,169,48,141 „1,222,169 

DATA 2,141,82 „222,169, od, {41,1,222,169 

„214, 141,2,222,169,255,141,7,221 

DATA. 167 ,259,141,. 19,221, 189,07 141,7 522 

1,173, 7,221,249,58,159,4 „44,2,222 

DATA 288,244, 169,246, 141,2,222, 1:23,22, 

222,74,74,176,9,169,64,32,28,254 

DATA 173 „0,222,73, 295 „72,169,118,141, 

2,222,169, 4 „A4,2,222,240,251, 159 

DATA 245,141 ,2,222,1034,24,95,44,133,2 
„16 „5,32,237,246, 208,176, 169,2,32 

DATA 23,254,1697, 13,72,208,228,,201, 131 
2.5, 7 ‚238,229, 201,.1350,2098,6,52 

DATA 44,247, 76 ,254,229, 76,204,2297,72, 

146,1682,554,142,1,222,162,48,142,3 

222,169,1689,141,2,222,189,, 255,14 

1,8,222,162,52,142,1,222,162,52,142 

DATA 3,222,141.82 

REM FHHHHR HER HH 

REM ##*#*# BLOCK 12 #*%+ 

REM KR REEEHRRERERR 

DATA 64512,490,5057 


<B56: 
«176> 
LPPD 


nn 


186? 
<198> 


<BQ4 
<B653} 
<a5@> 
<BZ1: 


3795 


on 


1337 


" 


120> 


»178> 


a Yan . 
“ er =" 


<?16> 
2007: 
226> 


“ ri 
. PER Er 


DATA 222,169,86,141,2,722,173,8,272,7 @sem 


6, 142,258,109;31747, 153,173, 1035 175 
DATA 135,172 ‚96 ‚72,165,186,41,15,197, 
2,208,5, 1D4 ,44,29,252,96,104,44,28 
DATA 252,96 

REM KRFHHRFEHHRNHHHHERE 

REM #*** ELDCKE 13 #%*#%* 

REM KRHHHRRRHRHREHRRRR 

DATA 6499797,97,1113 

DATA 169,4, 133 „2,167,54.76,2 
REM FERRARI NR RER ER 

REM #*#*##* BLOCE 14 ##*##+ 

REM *#RRRRRRRRERERRRRH 

DATA 85495,53,047 

DATA 76,222,251 

REM FZARHHHRRHEHRRHHHHNFHÄNHHHHHRHHHRN 
REM KARRRRERKERKKKKRRKHRNRRKRRHRHHERH 
REM WENN OHNE DOS 5.1, DANN NUR 

REM NOCH ZEILE 1BRBRB2B EINGEBEN! ! 

REM 23H HEREEREHHERHHEHHEHERHRHH 
REM FH RHRFERHHERHHRRRRHRKHHHRÄRRRHH 
REM KFRRRRRRRRKRRERERH 

REM **** BLOCK 15 #**%* 

REM FR HR HH RE 

DATA 83274,212,27895 

DATA 75,1085,247,248,248,248,2748,248,72 
49,247 ,247 ‚247,249 ,248,169,169,169 
DATA 1549,1689,0,207,287,287,6,243,37,4 
2,175,98,174.,99,62,177,64, 529,0L,2 
DATA 15,08, 77 ,803,32,80,293,40, 427, 22,083 
„5,84 "73,86, 73, 67,82,84,13,8, 76 

DATA 123 ,247.162,2.189,102,247 149,12 
4,202,168,248,167,.8,141,145,3, 76,211 
DATA 249,133,166,134,167,1868,189,1,1, 
?291,238,240,4,221,149,208,25,187 

DATA 2,1,2@1,167,240,4,2@1,1644,208,12 
‚165,166,162,8,221,69,247,240,17 

DATA 222,16,248,165,166,166,167,201,5 
8,176,3,76,128,08,76,138,8,134,185 


. } Fo 
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18&6> 
<B35> 
za6} 
038: 
<DBR > 
<118> 
<178> 
328: 
ıDu97 > 
938} 
289, 
<B28> 
<2QB84 > 
<B94 > 
FL 125 
<1B7> 
<124> 
x134> 
<120> 
<178> 


<132: 


1457 


1532 
1558 
159685 
1570 
1588 
1581 


1582 


Hardware 


DATA 141,148,5,52,453,247,1668,165,169, 

62,133,187,169,3,133,188,173,145 

DATA 3,133,1864,189,47,247,72,189,58,2 

47 ‚72,96, 152,248, 69, 162,9,189,69 

Data 247,2423,8,285,62,53,248,13,232,1& 
243,173,62,53,201,536,248,81,76,2497 

DATA 247,198,183,169,54, 133,187,169 ,3 
„133,188,76,199,247, 165,186,32,177 

DATA 255,169,111 

REM KHHHHHRHHHHRERHHnr 

REM ##*#%* BLOCK 15 ##8*# 

REM HR RRRERRERRR 

DATA 53498,255,34255 

DATA 33,185,32,147,255, 1398,0,185,.62, 

3,32,168,255,208,196, 183,144,245 

DATA 32,174,255,76,55,248,165,186,372, 

180,255,169,111, 133,185,32,150,255 


- DATA 32,165,255,201,13,240, 6,32,22,23 


1,76,36, 248,32, 22,231 ,32,171,255 


DATA 76,121,0,169,96,133,185,32,2 
„165 ‚186,32,180,255, 165,185,32 


eg > 
yo 


= DATA 150,255,169, QD, 133,144, 160,5,132, 


183,32,165,255,133,195,32,165,255 
DATA 135,196,164,144,208,67,164,183,1 
36,208,235,166,195,165,195,32,205 
DATA 189, 149 ,32,32,22,231,32,165,255, 
166,144,208,,; 38,2901,2,240,24,32,22 

DATA%231 ,32,2725)255,7240, 26:32:22 „255 
‚240,232,201,32,2@8,228,32,228,255 
DATA 240,251,208,221,169,13,32,22,231 
„160,2,75, 81,248 ,32,66,246, 169,13 
DATA 32,22,231,76,121,80,166,43,164,44 
„173,148,3,201, 37,208,3.169, 1,44 

DATA 169,0,133,185,169,0,32,213,255,1 
76,46,173,148,3,201,37,240,25,165 
DATA 175,133,46,165,174,1353,45,32,89, 
166 ae, 165,173,148,3,2@1,173,248 


ASPFSgbre; A 4,221,47,288,3,76,134,227,169,8, 


1574 
1538 
1585 
1512 
1520 
1&21 


1622 


i626 


1627 


1628 


16297 


1431 


1532 


1634 


5 DATA 123 


32,144,255,32,142,166, 768,174, 107 
DATA 76,134,227, 162,2,189, 171: 
„124,202,16,248. 76,134 
REM HH RRHHERERRHIHHR 
REM #*#* ELOCK 17 x### 
REM ZH Er 
DATA 683744, 256,50574 
DATA 227,32,89,225,76,24,248,164,185, 
185,62,3,41,15,141,145,3,136, 248 
DATA 22 ‚1B5,.62.3,41,15, 1548,2498,12,173 
‚„145,3,24,105,18,136,208, are Be 
DATA 145,3,76,121,0,160,0,32,115,0, 17 
2,208,3,76, 194.249 ,169,76,133,124 
DATA 165,122,72, 165 „123,72,138,201,: 34 
.240,30,32,115, 2,208,247,104, 133 
104.153.127,52,121,0,152.0,2 
21,34,240,14,162,2,228, 123,208 ,72 
DATA 162,0,248,7,1234,104,142,02,32,115 
‚2,2423,05,281,34,2483,52,281,51,248 
DATA 4,201,58 ‚208,2,162,255,201, 21,24 
2,302133,92,53,1341,.147,5, 252,200 ,1# 
DATA 223,32,115, 2,240,46,141,146,53,32 
‚115,8,249,38,2081,93,2893,34,224,1& 
DATA 176,30, 173,147,3,201, 42,288,5,13 
4,202,169,63,44,169,32,224,15,176 
DATA 7,153,62 „3,208, 232,160,283,175,1% 
6,5,208, 195,162. 76,134, 124, DLR 8, 173 
DATA 132,183,152,76, 134, 124 ,32,12 1,0, 
240 ,5,>Z, 115.0,208,251, 96 „162,80, 189 
DATA 81,247 ,240,6,32,22,231,232,208,2 
45,76,8,133,1468,228,215,2908,15,138 
DATA >08,160,165,169,48,189,201,16,14 
751955 155.109,175,3091.1358,.89,195 
DATA 1533,155,1685,188,248,2182 


227,149 


i2DRR DATA Z 
1BB10 REM *#*#**%* ENDE ####%* 
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<@19> 
<Q46} 
<D78; 
<151> 
<192> 
SIal> 
<212> 
<171> 
<186> 
<B22> 
<137> 
2252: 
034% 
<D&EB: 


<097% 


2832> 


258? 


1958> 
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Spiele-Test C 64 


Neue Spieletests — 
so wird bewertet 


Die 64’er-Redaktıon hat ein neues 
Konzept für Spieletests entwickelt. 
In jeder Ausgabe werden wir etwa 
fünf aktuelle Spiele testen. Dabei 
vergeben wir in fünf Kategorien je- 
weils bis zu 15 Punkte. Die Punktzah- 
len finden Sie in Balkendiagrammen 
am Schluß eines Tests. Da nur über 
dem Durchschnitt liegende Spiele 
vorgestellt werden sollen, fangen 
unsere Skalen erst bei fünf Punkten 
an. Zu den Kategorien selber: Mit 
Spielidee bezeichnen wir die Hand- 
lung des Spiels, seinen Spielwitz, 
seine Hintergrundstory und seine 
Originalität. Die Punkte Grafik und 
Sound brauchen wohl nicht weiter 
erläutert werden. Damit Sie eine di- 
rekte Vergleichsmödlichkeit haben, 
wurden zwei Spiele ausgesucht, de- 
ren Grafik oder Sound wir derzeit 
für das Beste halten: Bei der Grafik 
wäre das »Impossible Mission«, 
beim Sound »Ghostbusters«. Beiden 
geben wir auf dem entsprechenden 
Gebiet 11 Punkte. Warum so wenig, 
wenn wir sie doch für die besten hal- 
ten? Nun, die Noten müssen steige- 
rungsfähig bleiben. Gerade die für 
die nächsten Monate angekündig- 
ten Neuerscheinungen sollen näm- 
lich mit bisher ungeahnter Grafik 
und Sound auftrumpfen. Weiter 
gehts mit dem Punkt Schwierig- 
keitsgrad. Hier eine Note zu verge- 
ben, fällt schwer, ändert sich der 
Schwierigkeitsgrad bei den meisten 
Spielen doch laufend. Wir wollen 
hier überschlagsmäßig angeben, 
für wie schwer man das Spiel halten 
darf. Unlösbare Spiele erhalten 15 
Punkte. Auch hier vielleicht ein Bei- 
spiel: »Championship Loderunner« 
würde 14 Punkte erhalten. Als letz- 
tes noch die Motivation. Wie lange 
wird man wohl Spaß an dem Spiel 
haben. Einen Nachmittag oder meh- 
rere Monate? Motivation bedeutet 
aber auch, wie schwer es einem 
fällt, sich nachts um 2 Uhr endlich 
vom Spielloszureißen und ins Bett zu 
gehen. 


Damit die Bewertungen einerseits 
möglichst objektiv, andererseits von 
Ausgabe zu. Ausgabe immer ver- 
gleichbar sind, werden sie Jeden 
Monat von einem festen Team, be- 
stehend aus Redaktionsmitgliedern 
und freien Mitarbeitern, ausdisku- 
tiert. Wir halten uns dabei nicht für 
unfehlbar, glauben aber, faire Ent- 
scheidungen treffen zu können. 


(B. Schneider/M. Kohlen/rg) 


48 Zar 


Trends und Flops 


Auch diese Spalte wird vorläufig 
zu einer festen Einrichtung werden. 
Hier werden wir über Trends auf 
dem Spielesektor, aber auch über 
Flops berichten. 

Nun gleich hinein ins Getümmel: 
Lange erwartet und zum Redak- 
tionsschluß immer noch nicht liefer- 
bar waren die US-April-Neuerscher- 
nungen der Firmen Electronic Arts, 
Broderbund und Epyx. Schon seit 
Wochen kursieren Gerüchte um 
Programme wie »Summergames II«, 
»Karateka«, »Rescue on Fractalus«, 
»Skyfox« und einige andere mehr. 
Teilweise handelt es sich hier um 
Umsetzungen von Äpple- oder Ata- 
ri-Programmen, von deren hoher 
Qualitätman sich schon überzeugen 
konnte. Auch von den anderen Neu- 
erscheinungen dieser Firmen hört 
man bis jetzt nur Gutes. Wir bleiben 
am Ball und versuchen, so schnell 
wie möglich über diese Spiele zu 
berichten. »Mail Order Monsters« 
und »Racing Destruction Set« er- 
reichten uns erst nach Redaktions- 
schluß und werden in der bfer- 
Ausgabe 8 besprochen. 

Um beim Thema Trends zu blei- 


ben: ;, Ka mit primi- 
tiven Schießspielen keinen Hund 


mehr hinterm Ofen hervorlocken 
kann, sollten die Softwarehersteller 
inzwischen begriffen haben. Und 
auch ein einfaches Jump-and-Run- 
Spiel, das keinerlei neue Ideen mit 
sich bringt, wird wohl nur wenige 
Käufer finden. Trotzdem tauchen da 
immer noch Spiele wie »Super Zax- 
xon« auf. »Super Zaxxon« Ist grafisch 
schlechter als das echte »Zaxxon«, 
hat aber dafür mehr unterschiedli- 
che Stufen. Langeweile ist aller- 
dings vorprogrammıert, denn am 
Spielablauf (Ballern, Ballern, Bal- 
lern ...) hat sich überhaupt nichts 
geändert. Weiteres Beispiel ist 
»Conan«. Wer nun einen Ädrenalın- 
spiegelheber erwartet, der wird von 
einem einfallslosen Jump-and-Run- 
Spiel mit einfacher, ruckhafter Gra- 
fik enttäuscht. Was hätte sich nicht 
alles aus einem solch gewaltigen 
Stoff machen lassen. Wohlgemerkt: 
Diese beiden Spiele sind leider kei- 
ne Einzelfälle. Besonderstragisch ist 
nur, daß gerade zwei relativ be- 
kannte Firmen, Hesware und Data- 
most, für diese Flops verantwortlich 
sind. Eines sei also jedem gesagt, 
der sich ein Spiel kaufen möchte: 
Immer vorher Probespielen oder 
Testberichte lesen, am besten bei- 
des, denn keiner gibt gern 100 Mark 
für nichts und wieder nichts aus. 

(B. Schneider/M. Kohlen/rg) 








Master Of The Lamps 


In diesem Spiel von Activision 
geht es zu wie in einer Geschichte 


aus Tausendundeiner Nacht: Sie 
müssen als Prinz einen bösen Lam- 
pengeist in die Lampe zurückbeför- 
dern, damit Sie die Erbnachtfolge 
antreten können. Doch leider ist die 
Lampe kaputt, und ihre Einzelteile 
sind über knapp 20 Screens ver- 
streut. Sie müssen von Ihnen zusam- 
mengesucht werden. Von Screen zu 
Screen fliegt man durch einen »Zeit- 
tunnel« in schneller und gut ge- 
machter 3D-Grafik. Am Ende des 
Fluges erwartet den Spieler dann 
der Lampengeist. Dieser wirft mit 
farbigen Noten, die man nur abweh- 
ren kann, wenn man schnell genug 
einen gleichfarbigen Gong an- 
schlägt. Hat man diesen Angriff 
überstanden, gehört einem auch 
schon eines der Lampenteile, und 
weiter geht's durch den Zeittunnel. 
Wie schon gesagt, Ist die Grafik 
recht schön. Besonders gut ist aber 
die Musik geraten: In Ghostbusters- 
Qualität dröhnt einem da pro Screen 
eine andere Melodie entgegen, die 
stilistisch zwar nicht zum Stil paßt 
(Boogie Woogie im Ornent?), dafür 
aber der reinste Ohrenschmaus ist. 
Da vergißt man sogar das Spielen. 
Damit ist es allerdings auch schon 
getan. Abwechslungsreich ıst das 
Ganze nämlich wirklich nıcht. Die 
zwei geschilderten Situationen wle- 
derholen sich nur mit steigendem 
Schwierigkeitsgrad. Schade, denn 
sonst wäre dies derzeiteines der be- 
sten Spiele. (B. Schneider/rg) 
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World Series Baseball 
Sportspiele scheinen sich zu den 
Rennern des Sommergeschäfts 1985 


zu entwickeln. Paradoxerweise 
kommt eine der besten Simulatio- 
nen einer typisch amerikanischen 
Sportart aus England: Baseball. Wer 
das Spielprinzip absolut nıcht kennt, 
der wird seine Schwierigkeiten ha- 
ben. Die Anleitung geht davon aus, 
daß man die Spielregeln kennt. Wer 
aber ungefähr weiß, wie es geht, 
dem stehen spannende Stunden am 
Computer bevor, ob allein gegen 
den sehr spielstarken Computer 
oder zu zweit. Der Joystick erfüllt da- 
bei, je nach Spielsituation, verschie- 
dene Funktionen, sei es nun die 
schlägerhaltung oder die Spieler- 
anwahl. Neben der Aufsicht auf das 
gesamte Spielfeld werden auf einer 
Anzeigetafel die Spieler in Großauf- 
nahme gezeigt. Die Spieler laufen 
trickfilmähnlich eın und übers Feld, 
und für die Spielpausen gibt's sogar 
eine Tanzgruppe. Weniger gelun- 
gen ist dagegen der Sound, der ab- 
gesehen von der amerikanıschen 
Nationalhymne und der Begleitmu- 
sik der Tänzerinnen, auf einfache 
Ball- und Klatschgeräusche be- 
schränkt ist. Wie schon erwähnt, ıst 
der Computer recht spielstark, eher 
schon zu stark. Aber am meisten 
spaß machen solche Spiele Ja so- 
wieso zu zweit. Für Anfänger kommt 
die komplizierte Bedienung er- 
schwerend hinzu. Wer sich aber 
trotzdem nicht abschrecken läßt, 
der erhält eine der besten Mann- 
schaftssport-Simulationen, die es 
derzeit gibt. - (B. Schneider/rg) 
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Rally Speedway War 


Autorenn-Simulationen gibt es in- 
zwischen viele. Überzeugt hat uns 
aber ein Programm von Adventure 
In. und Commodore (\). »Rally 
Speedway« hat keine aufwendige 
Grafik und keinen besonderen 
Sound. Die Idee eines Autorennens 
ist relativ alt und die Ausführung 
nicht überragend. Wenn zwei Spie- 
ler über die Strecken jagen, dann ist 
ordentlich was los. Da sich alles auf 
einemScreen abspielt, und nicht auf 
zweien wie bei Pitstop Il, mußte eine 
Sonderregelung eingeführt wer- 
den: Wer zu weitzurückblickt, erhält 
fünf Strafsekunden, dann werden 
beide Wagen wıeder Kopf an Kopf 
gestartet. Verursacht man eine Kolli- 
sion mit einem der zahlreichen Hin- 
dernisse, ls Erica zehn Strafse- 
kunden. Natürlich Kann man sich 
gegenseitig rammen oder von der 
Fahrbahn drängen. 

In einem Hauptmenü können sehr 
viele die Fahreigenschaften der Au- 
tos, betreffende Parameter einge- 
stellt werden. Dazu gehören, neben 
den Witterungsbedingungen, auch 
die Höchstgeschwindigkeit und das 
Beschleunigungs- und Bremsver- 
mögen. Wem die sechs mitgeliefer- 
ten Rennstrecken nicht ausreichen, 
der kann sich mit einem Screen- 
Editor ganz einfach selber welche 
basteln. Rally Speedway ist neben 
Pitstop II das interessanteste derzeit 
erhältliche Autorennen, vorausge- 
setzt, man spielt zu zweit. Der Com- 
puter hält sich selbst nämlich wohl- 
weiıslich vom Lenkrad fern. 

(B. Schneider/rg) 
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Super Huey 

Vom Programmierer dieses Spiels 
war man bisher nur Äction gewöhnt: 
Paul Norman ist der Autor der be- 
kannten Spiele »Forbidden Forest«, 
»Aztec Challenge« und »Caverns of 
Khafka«. Mit »Super Huey« wagte er 
sich nun ın das Genre der Sımulato- 
ren. Und dasmitrecht gutem Erfolg. 
Simuliert wird das Fliegen eines 
»UH-1X«-Helikopters, eines der neue- 
sten aus der Realität gegniffenen 
Modelle Hat man sich durch das 
Anleitungsmaterial durchgekämppft, 
weiß man nicht nur über die Bedie- 
nung des Simulators Bescheid, son- 
dern hat gleich ein paar Lektionen 
über echte Hubschrauber ım klu- 
gen Köpfchen. Der reale UH-IX hat 
übrigens ein besonderes Stabilisa- 
tionssystem, das das Fliegen we- 
sentlich vereinfacht. Natürlich wur- 
de dasinder Simulation berücksich- 
tigt. 

Hat man den Huey erst einmal in 
die Lüfte erhoben, bietet sich ein 
eindrucksvoller 3D-Effekt. Das ma- 
jestätische Schwebegefühl kann 
man mit vier verschiedenen Modi 
erleben: Flight Instruction, Explora- 
tion, Rescue und Combat. Flight In- 
struction soll den Spieler mit be- 
stimmten Flugtechniken und der Be- 
dienung vertraut machen, Explora- 
tion Ist dıe simulation eines Erkun- 
dungsfluges. Bei Rescue müssen 
Soldaten gerettet und an sichere Or- 
te gebracht werden. Und Combat 
schließlich ist der aggressive Teil. 
Hier heißt es: Kampf den Panzern, 
Flaks und Feindhubschraubern. 

(M. Kohlen/rg) 
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Fımz 2136 PERIOD ı Can 
Slapshot 

Sportspiel-Enthusiasten dürfen 
sich freuen: »Slapshot« bietet zwar 
nicht alles, was ein Real-Life-Eis- 
hockeyspiel an Spaß bringt, ist aber 
doch eines der schönsten Sportspie- 
le, die es aıbt. 

Gegen den Computer kann man 
leider nicht spielen, aber zu zweit 
macht es sowieso mehr Spaß. 

Slapshot erinnert sehr stark an 
Soccer, spielt sich aber etwas an- 
(ders. In Slapshot ist Faulen erlaubt: 
Ein kurzer Druck auf den Feuer- 
knopf, und der Gegner stolpert 
über den gemein zwischen die Beı- 
ne gelegten Hockeyschläger. Und 
während er da verwirrt auf dem Bo- 
den sitzt, nimmt man ıhm kurzer- 
hand den Puck ab und marschiert in 
Richtung Tor. 

Fault man zu oft, schreit der 
Schiedsrichter in gut verständlı- 
chem Englisch »Penalty!« und ver- 
ordnet ein Bulli. Beieinem Schuß ins 
Tor hört man ein begeistertes »He 
scoredl« und wird von rauschendem 
Applaus (vermischt mit Pfffen) ge- 
feiert. Die Sprachausgabe wurde 
von Electronic Speech Systems pro- 
duziert, die auch schon den Spielen 
»Impossible Mission« und »Ghostbu- 
sters« zum Erfolg verhalfen. 

Wenn Slapshot gegen den richti- 
gen Gegner gespielt wird, macht es 
riesig Spaß. Es kann zwar nicht ganz 
an das gewisse Etwas von Soccer 
anknüpfen, ist aber ein durchaus 
empfehlenswertes Spiel. Noch ein 
Hinweis zum Schluß. Für Joysticks 
mit automatischen Dauerfeuer ist 
dieses Spiel nicht geeignet. 

(M. Kohlen/rg) 
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Crystal Castles 
»Crystal Castles« ist den Spielhöl- 
lenfreaks ein Begriff. Nachdem man 
die Atarisoft-Versionen für Telespiel, 
Atari- und Apple-Computer nicht 
gerade als gut bezeichnen kann, hat 
sich die englische Firma 'Thunder- 
vision des Problems angenommen 
und eine C 64-Version produziert. 
Das Ergebnis ist beeindruckend: 
Die Grafik ist identisch zu der des 
Automaten, nur die Auflösung der 
Sprites kommt nicht ganz an die der 
Spielhallenversion heran. 

Bei Crystal Castleshandeltessich 
um ein Pac-Man-ähnliches Spiel, 
das auf dreidimensionalen Ebenen 
spielt. Held des Spiels ist ein kleiner 
Bär, der herumläuft und Punkte auf- 
sammeln muß. Dabei wird er gestört 


durch n äaume. fressende 
RR ARE Derthilda. Zur 
Stärkung gibt's dann einen Topf voll 
Honig und einen magischen Hut. 

Die Güteklasse der Spielhallen- 
zu Computer-Adaption ist erstaun- 
lich, denn nicht nur die Grafik, son- 
dern auch die spielerischen Ele- 
mente gleichen sich. Die vielen klei- 
nen Tricks, die sich auf dem Auto- 
maten anwenden lassen, sind auch 
an der C 64-Version benutzbar. Wer 
die Nummer | am Automaten wer- 
den will, kann also vorher auf dem 
Computer üben. 

Crystal Castles zeichnet sich trotz 
der schwierigen Steuerung durch 
Spielwitz und gelungene Grafik aus. 
Der Sound ist einfach, aber durch- 
aus passend und nicht störend. Die- 
ses Spiel ist eine gelungene Anpas- 
sung an den Computer. 

(M. Kohlen/rg) 
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Hexenküche 
Palace Software ist das Tochterun- 
ternehmen einer Filmfirma. Dies 
merkt man sofort an der hervorra- 
genden Grafik dieses Spieles. 

»Hexenküche« ist in mehreren 
Punkten etwas Besonderes. Als er- 
stes ist zu erwähnen, daß dieses 
Spiel gleichzeitig in England und 
Deutschland erscheint. Ein gleich- 
zeitiger Erscheinungstermin war 
bisher unüblich. Als zweites ist für 
Deutschland und England je ein ge- 
sonderter Wettbewerb ausge- 
schrieben. Zu gewinnen ist ein g0l- 
dener Hexenbesen (näheres siehe 
Happy-Computer 7/85). Als dritter 
Punkt ist der Text anzuführen. Für 
den deutschen Markt ist die englı- 
sche Version übersetzt worden. 

Ziel von Hexenküche ist es, eine 
Hexe zu ihrem goldenen Besen zu 
führen. Zuerst muß die Hexe durch 
eine Landschaft fliegen und einen 
Schlüssel suchen, mitdemsieinden 
»Untergrund« dieser Landschaft ge- 
langen kann. Hier ist dann der gol- 
dene Besen versteckt. Doch dies 
hört sich einfacher an, als es ist. Auf 
der Suche nach dem Schlüssel wird 
die Hexe von Fledermäusen, Gel- 
stern, Haien und Vögeln behindert, 
die ihr die Kraft rauben. Der Teil, 
der im Untergrund spielt, ist ein 
Hüpf- und Springspiel, das nicht ein- 
fach zu bewältigen ist. 

Alles in allem ist Hexenküche en 
Spiel, das Spaß macht und nicht so 
schnell langweilig wird. Auch beı 
diesem Spiel ist der neue Trend zu 
niedrigen Software-Preisen zu er- 
kennen. (rg) 


Titel Hexenküche 


Spielidee 
Grafik 
Sound 
Schwierigkeit 
Motivation 
Besonderheiten Wettbewerb 
Hersteller Palace-Software 
Preis zirka 29 Mark 
Bezugsquelle Rushware 
An der Gümpge- 
brücke 24 
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C 64 Listing des Monats 


HYPRA-ASS — 
Ein Assembler 
der Spitzenklasse 





Das war noch nie da. 


Ein Super-Assembler zum Abtippen. 
Mit Leistungsmerkmalen, die Sie sich 


schon immer gewünscht haben, über- 
trifft er jeden 100-Mark-Assembler. 


YPRA-ASS ıst ein rein in Ma- 
ie schinensprache geschriebe- 

ner 3-Pass-Makroassembler 
mit integriertem Editor für den © 64 
mit Diskettenlaufwerk 1541. Er be- 
legt etwa 6 KByte RAM-sSpeicher 
von $0801 bis $1FD7. HYPRA-ASS ge- 
hört, was Leistung und Schnelligkeit 
betrifft, zu einem der besten Assem- 
bler. Seine hervorstechendste Eı- 
genschaft ıst die Fähigkeit, um Be- 
fehlsfolgen, die in einem Programm 
Immer wieder auftreten, einen 
Block beziehungsweise ein Makro 
zu legen. So definierte Befehlsfol- 
gen können durch einen einfachen 
Befehl an jeder beliebigen Stelle 
des Programms aufgerufen wer- 
den. Diese Eigenschaft haben viele 
Assembler, aber nur wenige kön- 
nen lokale Labels beziehungsweise 
Sprungziele innerhalb eines Ma- 
kros verarbeiten. Innerhalb eines 
Makros sind, wenn nicht besonders 
gekennzeichnet, alle Labels und 
Variablen lokal. Neben vielen 
Pseudo-Opcodes, mit denen sich 
zum Beispiel der Objektcode auf 





Label: 
Bedingte As- 
semblierung: 


Sprungmarke 





) 


Diskette assemblieren läßt oder 
Quelltexte verketten lassen, kann 
auch bedingt assembliert werden. 
Formatierte Listings können an be- 
llebige Geräte gesendet werden. 
Symboltabellen lassen sich sortiert 
und unsortiert ausgeben. 
Quelltexte werden bei HYPRA- 
ASS wie normale Basic-Programme 
erstellt. Nach der Eingabe von RE- 
TURN erscheint die soeben einge- 
gebene Zeile formatiert auf dem 
Bildschirm. Die dabei benutzten Ta- 
bulatoren könne h einfache 
Beiehle ERDE 1. Um das 
Editieren von Quelltexten möglichst 
bequem zu machen, ist in HYPRA- 
ASS ein spezieller Editor integriert, 
der den normalen Basic-Editor um 
viele Funktionen erweitert. Neben 
der automatischen Zeilennumerie- 
rung können Zeilen und Zeilenbe- 
reiche formatiert gelistet werden. 
Auch das oft vermißte Suchen und 
Ersetzen, Find und Renumber sind 


eine Selbstverständlichkeit für die- 


sen Editor. 
(Gert Möllmann/ah) 


Abhängig von einer Variablen können zum Beispiel Quelltextzeilen 
beim Assemblieren übersprungen werden. Bei unterschiedlichen 


Variablen erhält man folglich unterschiedlichen Objektcode. 


Makro: 


Befehlsfolgen, die im Quelltext häufiger benutzt werden. Das Ma- 


kro wird in einer Definitionszeile mit einem Namen versehen, unter 
dem es im Quelltext beliebig oft aufgerufen werden kann. Trifft der 
Assembler auf einen so definierten Namen, so wird an diese Stelle 
die vorher definierte Folge von Befehlen assembliert. 


n-Paß: 


Für n steht eine Zahl, die die Anzahl der Assemblerläufe anzeigt. 


Bei Assemblern, die Labels verarbeiten können, handelt es sich in 
der Regel um 2-Pass-Assembler. Im ersten Pass wird eine Syntax- 
prüfung durchgeführt und den Labels und Variablen ein numeri- 
scher Wert (Adresse) zugewiesen. (Symboltabelle wird angelegt). 
Im zweiten Pass wird dann der Objektcode erzeugt. 


Objektcode: 
Quelltext: 
Symboltabelle: 


Das vom Assembler erzeugte, lauffähige Programm 
Das mit dem Assembler erstellte Basic- oder Text-File 
Beim Assemblieren wird jedem Label und jeder Variable ein nume- 


rischer Wert zugewiesen. Die Symboltabelle enthält eine Liste aller 
im Programm vorkommenden Label und Variablen mit deren Wert- 


zuweisungen. 


Bild 2. Definition der im Text auftretenden Fachbegriffe 
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Bild 1. Formatiertes Listing immer wieder benötigter Makros 


Lebenslauf: 


Ich bin 28 Jahre alt. Nach dem 
Abitur ım Jahre 1975 begann ıch 
ein Mathematikstudium an der 
Ruhr Universität Bochum. Nun, 
nachdem ich den Grundwehr- 
dienst abgeleistet habe, beab- 
sichtige ich, in dıe Datenverarbei- 
tung einzusteigen und eventuell 
ein Informatikstudium aufzuneh- 


men. Weitere Pläne den C 64 be- 


treffend liegen schon vor. So ist 
eine Textverarbeitung schon in 
Angriff genommen. 

Am Anfang der Entwicklung 
von HYPRAASS stand ein Edi- 
tor/Assemblerpaar, das von mir 
Ende 1984 in Basic geschrieben 
wurde, um dem mangelhaften Ba- 
sic des © 64 auf die Sprünge zu 


| helfen. Doch schon bald erwies 


sich die Langsamkeit dieser Pro- 
gramme als so nervenzermür- 
bend, daß für mich nur die Wahl 
bestand, entweder einen in Ma- 
schinensprache geschriebenen 
Assembler zu kaufen oder selbst 
einen zu schreiben. 

Dasolche Assembler recht teu- 
er sind, und weil es eine interes- 
sante Aufgabe ist, einen Ässem- 
bler zu schreiben, habe ıch mich 
für die zweite Alternative ent- 
schieden. So entstand mit Hilfe 
des Basic-Assemblers eine erste 
Version von HYPRA-ASS, die wie- 
derum eine zweite Version as- 
semblierte und so weiter. 

Die Entwicklung von HYPRA- 
ASS verlief also in einem »boot- 
strapping«Verfahren, was außer- 
dem noch den Vorteil hatte, daß 
eine Prüfung der Funktionstüch- 
tigkeit des Programms schon zum 
großen Teil im Verfahren selbst 


stattfand. 
(Gera Möllmann) 
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Anwendung des Monats C 64 


Damit Sie wissen, 
was Sie ausgeben 


Egal, ob Sie viel oder wenig Geld ver- 
dienen, auf jeden Fall hat es Vorteile, 
einen Überblick über seine Ausgaben 

zu haben. Und warum soll dazu nicht 
der C 64 eingesetzt werden? 

Mit diesem elektronischen Haushaltsbuch 
können Sie jederzeit Bilanz ziehen. 





eit Anfang 1984 der C 64 ıns 
Si kam, ist die Arbeit daran 
zu einer Leidenschaft gewor- 
den. (Wie bei vielen anderen auch!) 
Soweit der Beruf es ermöglicht, ver- 
bringe ich meine Freizeit (das sind 
hauptsächlich die Wochenenden) 
mit der Entwicklung von Änwendun- 
gen am Computer. Ausgangspunkt 
war die Begeisterung für technische 
»Spielereien« Doch bald reizte die 
Eigenentwicklung von Program- 
men. Es gibteinetiefe Befriedigung, 
wenn nach stunden- oder tagelan- 
ger Arbeit ein Programmteil das er- 
ste Mal gestartet wird und nach viel- 
leicht nur einer Korrektur zufrieden- 
stellend läuft. Ein andermal wird 
stundenlang über die Lösung eines 
Problems getüftelt. »Gelernt« habe 
ich jedenfalls dadurch einiges über 
die Basic-Programmierung des C 
64. Wenn auch häufig »Probieren 
über Studieren« ging. 
Als Familienvater finde ich volles 
Verständnis beı Frau und Tochter. 








(Das muß mal gesagt werden!) 

In der Familie liegt der Ausgangs- 
punkt für das Programm. Die Auf- 
zeichnung der monatlichen Einnah- 
men und Ausgaben erfolgte ma- 
nuell. Das ließ natürlich die »Ehre« 
des EDV-Anwenders nıcht zu. Ein 
entsprechendes Programm mußte 
her. Es sollten nicht nur die Beträge 
als Salden auf Konten geführt wer- 
den, sondern es sollte auch möglich 
sein, einzelne Buchungen wieder 
abzuru iederkehrende Posten 
sollten ee Monate 
hinweg beobachtbar sein. 

So entstand das »Haushaltsbuch« 
alseine Kombination aus sequentiel- 
ler und relativer Datei: die relative 
zur Kontenführung (Salden); die se- 
auentielle zur Speicherung der Ko- 
stenart, des Betrages und des Bu- 
chungsdatums als Einzelpositionen. 

Von der Floppy lassen sich mit »IN- 
PUT« bekanntlich nur 88 Zeichen 
einlesen. Der relative Datensatz hat 
aber eine Länge von 141 Zeichen. 
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Bild 1. Ein Menüpunkt aus dem elektronischen Haushaltsbuch 


Die Alternative »GETk in einer FOR- 
NEXT-Schleife ist sehr langsam. 
Dies fällt besonders bei der Bildung 
des Jahressaldos auf. 

Es blieb nur, den INPUT-Befehl zu 
modifizieren. Die entsprechenden 
DATAs für das kleine Maschinen- 
programm sind im »Haushaltsbuch« 
enthalten und werden in den Kasset- 
tenpuffer eingelesen. 

Als Tauschroutine fand gleich die 
im 64’er, Ausgabe 1/85 beschriebe- 
ne SWAP-Simulation Verwendung. 
Durch diese Funktion konnte die 
Produktion von »String-Müll« deut- 
lich reduziert werden. 

Ich habe mich bemüht, das Pro- 
gramm »wasserdicht« zu machen. 
Floppy und Drucker werden auf Be- 
reitschaft geprüft. Unter normalen 
Bedingungen dürfte es keinen Ab- 
sturz geben. Äber eine Eingabe von 
falschen Beträgen muß der Anwen- 
der verantworten. 


(Martin Schumann/gk) 








Martin Schumann 


52 San 


Lebenslauf 


Dem Jahrgang 1949 zugehörig, 
und damit den »alten« Heimcompu- 
teranwendern zuzurechnen, begeg- 
nete mir während des Studiums Än- 
fang der siebziger Jahre die Infor- 
matik zum ersten Mal. Nur die we- 
nigsten schenkten dem damals Be- 
achtung. Und ich schließe mich da 
nicht aus. 

Aber die »programmierbaren«, 
mathematischen Taschenrechner 
faszinierten mich trotzdem. 1975 
konnte ich dann einen HP-25 mein 
Eigen nennen. Die nächsten Jahre 
hatte ich beruflich viel mit Zahlen 
und Statistiken zu tun. Dabei leistete 
mir der »Kleine« wertvolle Dienste. 

1981 änderte sıch die Situation. In- 
zwischen beruflich mit Informations- 
systemen beschäftigt, wollte ich als 


Nutzer der EDV mehr über die ei- 
gentliche Programmierung wıssen. 
Lange beschäftigte mich auch die 
Frage nach dem »richtigen« Compu- 
ter. Aufgrund der Verbreitung und 
der gebotenen Leistung fiel die Ent- 
scheidung aufden © 64, der Anfang 
1984 schließlich gekauft wurde. 

Anhand der in Zeitschriften abge- 
druckten Programme und diverser 
Bücher arbeitete ich mich ın die 
Basic-Programmierung ein. Try and 
Error hieß die Devise. 

Nach mehr als einem Jahr habe 
ich noch nicht den Spaß an der 
»Computer-Knobelei« und der pro- 
grammtechnischen Lösung von Pro- 
blemen verloren. 


(Martin Schumann) 
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Anwendung des Monats | C 64 


Damit Sie 
wissen, was 
Sie ausgeben 


Das Programm »Haushaltsbuch« dient 
der Aufzeichnung der Ein- und Ausga- 
ben im privaten Bereich. Neben den 
monatlichen Bestandskonten (relative 
Dateien) werden zur Dokumentation 
der Buchungsposten die Einzelposi- 
tionen in sequentiellen Buchungsda- 
teien gespeichert. 


Die in den relativen Dateien geführten Konten ermöglichen 
innerhalb eines Jahres den Abruf des aktuellen Standes in der 
»Kasse«. Aus den sequentiellen Dateien lassen sich alle Bu- 
chungen mit Angabe der Kostenart, des Betrages und des Bu- 
chungsdatums auflisten oder einzelne selektieren; zum Bei- 
spiel bestimmte Kostenarten oder Buchungsmonate. 

Geschrieben wurde das »Haushaltsbuch« für einen C 64. 
Das für die Modifikation des INPUT-Befehls notwendige kleine 
Maschinenprogramm wird in dem Kassettenpuffer abgelegt. 











Die Funktion »Kontennamen ausgeben« wird automatisch 
von den übrigen Funktionen — soweit notwendig — aufgeru- 
fen. Denn warum sollte man sich die Nummern der einzelnen 
Konten merken, dies kann der C 64 viel besser. 

Wenn Sie also »4« eingeben, erfolgt eine entsprechende 
Meldung. Versuchen Sie es! 


Konten anlegen 

Beachten Sie bei dieser Funktion, daß eine existierende Da- 
tei des gewählten Jahres gelöscht wird. Es wird zur Vorsicht 
abgefragt, ob Sie dies auch wirklich beabsichtigen. Beantwor- 
ten Sie die Frage mit »JA«, so werden die bisherigen Konten 
gelöscht und Sie aufgefordert, die Zahl der neu anzulegenden 
Konten einzugeben. Anschließend können Sie die Konten be- 
nennen. Drücken Sie bei einer Kontonummer RETURN, so 
wird das Anlegen der Konten abgebrochen. Es werden nur die 
bis zu diesem Moment eingegebenen Konten gespeichert. 
Die Kontenzahl (KZ) wird entsprechend korrigiert. Geben Sie 
bei der Frage nach der Zahl der Konten »O« ein, so wird die 
Programmfunktion verlassen. Dadurch können Sie also nicht 
mehr benötigte Jahre löschen. (Klar, daß das auch außerhalb 
des Programms mit »SCRATCH« erfolgen kann.) 

Gleichzeitig mit dem Anlegen der relativen (Salden-)Konten 
werden auch die sequentiellen Buchungsdateien eingerich- 
tet. 

Die Zahl der Konten wurde auf 20 beschränkt, um noch mit 
einer Bildschirmseite auszukommen. Außerdem sollten 20 
Konten für die private »Buchführung« ausreichend sein. Wem 
dies dennoch zu wenig ist, muß in Zeile 1440 die betreffende 
Prüfung und in Zeile 60 die Dimensionierung anpassen. 

Außerdem wäre das Scrollen des Bildschirms über eine 
Routine (ähnlich der in Zeile 5800-5830) zu steuern. 


Buchen 


Die DATAs für die Simulation der nn TaUSCHTO TER o.ungali Aufruf dieser Funktion gibt zuerst die Nummern und Na- 
ei 


in der Zero-Page in den Freiraum ab Speicherstelle 
lesen. 

Die sinnvolle Nutzung des Programms setzt ein Disketten- 
laufwerk voraus. Ein Drucker wäre recht nützlich, istaber keine 
Notwendigkeit. Sollten trotz nicht vorhandenem Drucker die 
betreffenden Druckroutinen aufgerufen werden, führt dies zu 
keinem Programmabsturz. 

Ausgelegt ist das Druckunterprogramm für Epson- 
kompatible Drucker. Eine Anpassung an Commodore-Drucker 
sollte — falls es notwendig ist — leicht zu bewerkstelligen sein. 

Neben der Bereitschaft des Druckers wird selbstverständ- 
lich die des Diskettenlaufwerks geprüft. 


nge- 





Funktionsbeschreibung 





Wie aus den einleitenden Sätzen ersichtlich, gliedert sich 
das Programm in zwei übergreifende Programmteile: die Kon- 
tenführung und die Bearbeitung der Buchungspositionen. 

Nach dem Start des Programms geben Sie bitte das zu bear- 
beitende Jahr (»aktuelles Jahr«) ein. Der Zeitraum wurde auf 
1984 bis 2000 beschränkt. Dies kann selbstverständlich dem 
Bedarf des Lesers entsprechend angepaßt werden. Nur sollte 
dabei die Diskettenkapazität beachtet werden! 


Nach Eingabe der Jahreszahl meldet sich »Haushaltsbuch« 
mit dem Hauptmenü. Es stehen folgende Funktionen zur Ver- 
fügung: 


— 1 Konten anlegen 

— 2 Buchen 

— 3 Kontenübersicht 
(Kontennamen ausgeben) 

— 5 Monatsübersicht 

— 6 Jahresübersicht 

— 7 Buchungsposten abfragen 

— 0 Programm beenden 
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men der Konten aus. Durch Eingabe der gewünschten Num- 
mer wird das betreffende Konto eingelesen. Mit »E« kann man 
die Funktion ohne Aktivitäten verlassen. Anschließend wird 
nach Einnahme oder Ausgabe gefragt. An dieser Stelle kann 
die Routine ebenfalls durch die Taste »f7« abgebrochen wer- 
den. Diese Möglichkeiten wurden eingefügt, um ein Verlassen 
der Buchungsfunktion zu erlauben. Wurde jedoch dieser 
Punkt überschritten, bleibt nur, eine Buchung durchzuführen. 
Bei Abbruch werden die bis dahin getätigten Buchungen gesi- 
chert. 

Nachdem Sie den Buchungsmonat angegeben haben, wird 
der alte Saldo angezeigt. Nun können »KOSTENART«, »BE- 
TRAG« und »TAG« (durch Kommata trennen) eingetippt wer- 
den. Wenn alles korrekt ist, können weitere Eingaben auf dem 
gewählten Konto gemacht werden. Wird die Frage nach weite- 
ren Buchungen mit »N« beantwortet, werden die Eingaben auf 
das Konto »geschrieben«. 

Nun können andere Konten aufgerufen oder die Funktion 
»Buchen« verlassen werden. 


Kontenübersicht 

Wählen Sie diese Funktion, wenn Sie die Monatssalden ei- 
nes Kontos wünschen. Auch hier werden die Konten wieder 
vorgegeben. 

Nach Anzeige der Übersicht ruft »f3« weitere ab oder »fl« 
druckt die aktuelle aus. Zum Menü kommt man mit »f5« zurück. 


Monatsübersicht und Jahresübersicht 

Tippen Sie die »5« im Menü und geben den gewünschten 
Monat ein, erhalten Sie einen Überblick über die Salden aller 
Konten für den betreffenden Monat. 

Die »6« ruft den Jahressaldo aller Konten ab. Dabei kann al- 
lerdings der zu kumulierende Zeitraum (Monate) frei gewählt 
werden. Ober- und Untergrenze können in beliebiger Reihen- 
folge eingegeben werden. 

Auch hier kann durch Drücken von »fi« ein Protokoll über 
Drucker erstellt werden. 
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C 64 Anwendung des Monats 


Programm beenden 

Mit dieser Funktion kann das Programm »ordnungsgemäß« 
beendet werden. Sollte dies mal aus Versehen geschehen 
sein, kann man mit »GOTO 960« sofort wieder zurückkehren. 
Es reicht, RETURN zu drücken, da der Cursor entsprechend 
positioniert wird. 


Buchungsposten abfragen 
Dieser Programmteil springt in das Untermenü »Sonderfunk- 
tion Buchungsposten bearbeiten«. Hier stehen als weitere 
Funktionen zur Verfügung: 
< Datei laden> 
2 Datei sichern 
3 Buchungen ausgeben 
4 Buchungen ändern 
5 Buchungen sortieren 
O Sonderfunktionen verlassen 
»Datei laden« braucht nicht gesondert aufgerufen zu wer- 


den, da dies wieder bei den übrigen Programmteilen des Un- 


termenüs geschieht. 

Vor dem Start der Laderoutine prüft der Computer, ob das 
Diskettenlaufwerk vorbereitet wurde. Auch eine »falsche« Da- 
tendisk wird mit »Datei nicht gefunden« quittiert. Es erfolgt 
Rücksprung zum Menü. 


Datei sichern 1 

Diese Funktion ist nur dann notwendig, wenn Änderungen 
(Kostenart oder Datum) durchgeführt wurden (vergleiche »Bu- 
chungen ändern«). 

Allerdings kann ein unbeabsichtigtes Starten dieser Routine 
auch keinen »Schaden« anrichten. Es werden dann die Daten 
im Rechner gesichert und die identische Datei auf der Diskette 
gelöscht. 

Darüber hinaus wird nach Aufruf dieses Programmteils zur 


Sind mehrere Änderungen vorzunehmen, können diese 
nacheinander durchgeführt werden. 

Ist der letzte Datensatz erreicht, wird gefragt, ob die geän- 
derte Datei gesichert werden soll. Dies wird in der Regel der 
Fall sein. 


Buchungen sortieren 

Die Buchungen werden in der Reihenfolge der Eingabe ge- 
speichert. Wird für bestimmte Anwendungen eine andere PFol- 
ge benötigt, kann nach Kostenart oder Betrag oder Datum auf- 
steigend sortiert werden. 

Auch hier entscheidet der Anwender, ob die neu sortierte 
Datei gespeichert werden soll. In diesem Fall wird es nicht im- 
mer gewünscht sein, weil die Datei in einer bestimmten Rei- 
henfolge auf der Diskette erhalten bleiben soll. 

Ein Hinweis sei an dieser Stelle gegeben. Bei umfangreiche- 
ren Dateien (zum Beispiel 200 Datensätzen) können schon 
ein bis zwei Minuten vergehen, bis der Computer die Vollzugs- 
meldung gibt. Also nur keine Aufregung, wenn er sich nicht so- 
fort wieder meldet. Es muß nicht unbedingt ein Programmfeh- 
ler vorliegen! 

Die 200 Datensätze (genauer 201 pro Konto) stellen die 
Obergrenze dar. »Vielbucher« müssen die Dimensionierung 
(D$(200,2)) in Zeile 60 ändern. 


Sonderfunktion verlassen 

Bevor das Programm zum Hauptmenü zurückspringt, prüft 
es, ob Änderungen oder Sortierungen an der sich im Compu- 
ter befindenden Datei vorgenommen wurden. Sollten dienoch 
nicht gesichert sein, kann dies jetzt — solange keine andere 
Datei von Diskette geladen wurde — nachgeholt werden. An- 
dernfalls RETURN drücken, um zum Menü zu gelangen. 


Vorsicht gefragt, ob eine Diskette eingelegt wurde. Zusäfflieh OT-N@® Aufschlü sselung nach 


prüft der Computer, ob das Laufwerk »bereit« ist. 


Buchungen ausgeben 

Als erstes geben Sie ein, ob die Ausgabe auf Drucker oder 
Bildschirm erfolgen soll. Dann wählen Sie die Datei (mit dem 
betreffenden Kontennamen), aus der Buchungen selektiert 
werden sollen. Gesucht werden kann nach »Kostenart« 
und/oder »Buchungsmonat«. Ist ein Suchbegriff nicht relevant, 
drücken Sie RETURN. Wurde beide Male RETURN gedrückt, 
wird die Datei komplett aufgelistet. Nach jeweils 15 Buchungs- 
posten wird die Bildschirmausgabe angehalten und mit Betäti- 
gen einer beliebigen Taste fortgesetzt. 

Hier bieten sich also vielfältige Möglichkeiten, Kostenarten 
über Monate hinweg zu verfolgen oder Monate in die einzel- 
nen Buchungspositionen zu »zerlegen«. 


Buchungen ändern 


Diese Funktion ist dazu bestimmt, Änderungen an den Bu- 
chungsposten vorzunehmen. Das gilt aber nur für Kostenart 
und Buchungsdatum, wenn man sich bei der Eingabe verse- 
hen und dies beim Buchen nicht bemerkt hat. Eine-Änderung 
des Betrages ist dagegen nur durch eine Korrekturbuchung 
möglich, weil in diesem Fall auch die relativen Konten korrigiert 
werden müssen. 

Gewählt werden kann zwischen zwei Änderungsmodi: 

1. Selektion und Korrektur von Einzelbuchungen oder 
2. Auflisten aller Buchungen 

Bei Änderungen werden Spalten und Zeilen beziffert, so daß 
die Datensätze und die Felder eindeutig identifiziert werden 
können. 

Nach Eingabe der betreffenden Zeilen- und ‚Spaltennummer 
wird das zu ändernde Feld in die spezielle »Änderungszeile« 
ausgegeben. Der Cursor wird so positioniert, daß das (geän- 
derte) Feld sofort wieder übernommen wird. Dies hat den Vor- 
teil, daß bei nur einer Buchstabenänderung nicht das ganze 
Feld neu geschrieben werden muß. 
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Zeilennummern 





Die folgende Grobeinteilung kann vorgenommen werden: 
1- 830 Vorbereitung und Unterprogramme, die der Schnellig- 
keit wegen, oder weil sie häufiger aufgerufen wer- 
den, an den Anfang gesetzt wurden (zum Beispiel 
Sortieren, Cursor positionieren). 
850 - 4310 Hauptmenü und Bearbeitung der relativen Datei 
(Kontenführung). 

4500 - 7780 Untermenü und Bearbeitung der sequentiellen Bu- 
chungsdateien. 

7830 - 7940 DATASs für »INPUT«-Modifikation zum Einlesen von Fi- 

les; werden in den Kassettenpuffer ab 828 geschrie- 
ben: 
Syntax: input# Filenummer, Satzlänge, Variable. Er- 
laubt mehr als 88 Zeichen (253) direkt einzulesen, 
findet Anwendung bei der relativen Datei, Satzlänge 
141 Zeichen. 

7990 - 8050 DATAS für die Simulation der »SWAP«-Funktion (ver- 
gleiche 64’er, Ausgabe 1/85) von Boris Schneider): 

. Ermöglicht das Vertauschen zweier Strings ohne zu- 
sätzliche Variable (»String-Müll«), eingesetzt in der 
Sortierroutine. 

Syntax: SYS Startadresse(string1,string2) 
Startadresse im Programm: Speicherstelle 715 in der 
Zero-Page. 


Wichtiger Hinweis: 

Sollte jemand mit Simons Basic editieren, ist zu beachten, 
daß nach dem ersten Start des Programms nicht mehr alle Be- 
fehle dieser Basic-Erweiterung wegen der DATAs im Kasset- 
tenpuffer einwandfrei funktionieren (Syntax-Error!?) 

Eine Beeinträchtigung von Exbasic Level Il konnte bisher 
nicht beobachtet werden. 

Gestartet wird das Programm mit RUN. 


Rap Säm« 
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Martin Schumann 
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-1- KONTEN ANLEGEN 
-2-. BUCHEN 


= 3 KONTENUEBERSICHT 


<KONTENNAMEN AUSGEBEN? 
-5- MONATSUEBERSICHT 
-6- JAHRESUEBERSICHT 
-7- _BUCHUNGSPOSTEN ABFRAGEN 
-0- PROGRAMM BEENDEN 


AUSWAHL (0-7) 


Martin Schumann 
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SONDERFUNKTION 


BUCHUNGSPOSTEN BEARBEITEN 


<DATEI LADEN? ----> 3-5 


2 DATEI SICHERN 

3 BUCHUNGEN AUSGEBEN 

4 BUCHUNGEN AENDERN 

5 BUCHUNGEN SORTIEREN 

O0 SONDERFUNKTION VERLASSEN 


AUSWAHL 0-95 


Einzelne Menüs vom »Haushaltsbuch« 


HAUS 
KOSTENART 


09.10.84 
10.10.84 
10.10.84 
13.10.84 
29.10.84 
29.10.84 
30.10.84 


HAKEN/HOLZLEISTE 
BLUMENTOPF 
ROLLTISCH/COMPUTER 
SESSEL/SCHLAFZ. 
CONCENTRA-BIRNEN 
TEPPICHWOLLE 
EICHEPANEELE 


SUMME -577.75 


Eine bestimmte Kostenart herausgegriffen 








Variable Bedeutung 
A = enthält bei Änderungen die Satznummer des zu 

ändernden Feldes 

= Anzahl der Konten (relative Datei) 

= Flag bei Änderungen 

= Feldnummer des zu ändernden Feldes 

= Buchungstag 

= |eerstring mit 20 Positionen, wird beim Auffüllen 
der Inhalte von RC$ benutzt 

= Zeilenposition des Cursors 

= Satz der sequentiellen Buchungsdatei 
Y,O = Kostenart; Y1 = Betrag 
Y,2 = Buchungsdatum 

= Normalwert in Speicherstelle 768 der Fehlerrouti- 
ne des Interpreters 

= Bezeichnung der Funktionen im Hauptmenü 

= Feldbezeichnung (sequentieller Datensatz) 

= Sonderfunktionen 
gewählte Funktion des Untermenüs 

= Gesamtsaldo in den Übersichten 

= Laufvariable in Schleifen 

= aktuelles Jahr (4stellig) 

= die beiden Endziffern des aktuellen Jahres 

= Jahressaldo aller Konten 

= Name der Konten (relative Datei) 

= Nummer des gewählten Kontos (Datei) 

= Zahl der Konten (wird nur bei »Konten anlegen« 
benutzt; sonst AK) 

= Position des Dezimalpunktes 

= Laufvariable (Buchen) für die Aufbereitung der Fel- 
der der sequentiellen Buchungsdateien 

= Monatsnamen 

= Jahressalden der Konten bei Jahresübersicht 

= String für gewählten Monat (für Datum) 

= Nummer des gewählten Monats 

= Kurzform des Kontennamens für sequentielle 
Datei) 

= Obergrenze bei Jahressaldo, wenn nicht das 
komplette Jahr kumuliert werden soll 

= relativer Datensatz (Record) 

= Untergrenze bei Jahressaldo, wenn nicht das 
komplette Jahr kumuliert werden soll. 

= Spaltenposition des Cursors 

= Monatssalden des eingelesenen Kontos 

= Monatssalden als String 

= Flag für Sortieren 

= enthält die Suchbegriffe auf 

= 1. bei »Buchungen«: Buchungsbetrag 
2. bei »Buchungen ausgeben«: Summen der 
Ausgaben 
3. übernimmt Salden für »Summen aufbereiten« 

= gewählte Funktion 

= Eingaben in GET-Funktionen 

= Anzahl der Sätze einer sequentiellen Datei 

= Zwischenspeicher der Monatssalden der Konten 

= 1. Zwischenzähler in »Konten anlegen« für Zahl 
der tatsächlich eingegebenen Kontennamen 
2. Zeilenzähler für Bildschirmausgabe 

= Zwischenspeicher für die Nummer der aktuellen 
sequentiellen Datei im Computer 


Tabelle 1. Die wichtigsten Variablen 


Auf eines sei noch aufmerksam gemacht. Durch die Kom- 
mentarzeilen sind eine Vielzahl von Blöcken entstanden, die 
der Gliederung des Programms dienen, aber ohne Bedeutung 
für den Programmablauf sind. Es lassen sich einige Byte ein- 
sparen, wenn die Kommentare entfallen. Da sie keine Sprung- 
adressen sind, kann dies auch bedenkenlos geschehen. 

Das Programm selbst gewinnt jedenfalls dadurch an Schnel- 
ligkeit. 

Nun wünsche ich allen Interessierten viel Erfolg beim Einge- 
ben und Anwenden des »Haushaltsbuchs«. Möge die Kasse 
nun immer stimmen. (Martin Schumann/gk) 


Ausgake Z/Julin988 
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NRidlmr 


42 


REM X RREEREERRETHEREH FH HH HH RER 
REM 
REM * x 
REM * 
REM 

PRINT CHRE£(147):FPOKE 211,12:POKE 214,18:5YS 


2 HH AUS. HEARE 178 -B UTESHES 


MARTIN SCHUMANN * 
KRRERRERRRRKRHRHERNTHKHTRKTH HIT TH 


28732:FPRINT"ICH LESE DATEN !" 


38 
) 
[=17] 


GOSUB 7838:G60SUB 7978:DIM SB#(2) ,F#(7) ,FS#(5 


DIM MS(20) „M$(12) „D$(200,2) „S(12) ,„Z25(12) „N$t 


29} ,St(28) „KN# (29) :Ti+="@" 


78 


M#+(1)="JANUAR T3SPACE}" : M$ 2) ="FEBRUAR 12SPFACE 


8 


82 
72 
128 
110 
120 
130 
140 
150 
160 
178 
i80 
170 
202 
218 
2202 
23 

240 
252 


288 
278 


288 
=9782 
S>aB 
>10 
328 


330 


342 
358 


Be 


363 


378 
379 


380 
>72 
420 
418 
420 
432 
448 
458 
468 
478 
482 
4970 
sau 
S18 
320 


Ausgabe 


„M& (3) ="MAERZ {4SPACE}" :M$ (4) ="APRIL{ASPACEI" 
MF(SI="MAITSSFACEF" ME (SI) =" JUNI TSSFACE}" 


M£(MI="JULITSSPACEI" ME (BI =" AUGUST {3SPACE}F" 
M& (9) ="SEPTEMBER" :M$ (18) ="OKTOBER {2SPACE}" 


M$(11)="NOVEMBER "ıM$(12)="DEZEMBER " 
F$(1)=" KONTEN ANLEGEN {#SPACE}" 
F$(2)=" BUCHEN{14SPACE}" 

F£(3)=" KONTENUEBERSICHT {4SPACE}" 
F$(4)=" KONTENNAMEN AUSGEBEN" 

F$(5)=" MONATSUEBERSICHT {4SPACE}" 
FF(6)=" JAHRESUEBERSICHT {4SPACE}" 
F#(7)=" BUCHUNGSPOSTEN ABFR. " 

F£(B)=" PROGRAMM BEENDEN {4SPACE}" 
F%=PEEK (768) :60T0 888 

REM 

REM =#= DRUCKER VORHANDEN? 
REM 

POKE 768,185:0PEN 1,4:PRINT#1,"":CLOSE 1:PO 
KE 768,F% 

IF ST<>-128 60T0 298 


FOKE 214,24:F0OKE 211,2:5YS 58732:PRINT" 6SP 


ACE}DRUCKER NICHT BEREIT !{9SPACE}"; 

:FOR I=@ TO 2590: NEXT 

RETURN 

REM 

REM == FLOPPYO_ VORHANDEN? 

REM 

FOKE 758,185:0PEN 1,8,15,"1":CLOSE 1:POKE 7 
68,F%. 

IF ST<>-128 GOTO 365 


[=23:5=-9:60SUB 838: PRINT" {RED,SFACE}FLOPPY 
NICHT BEREIT !“ 

:FOR I=QB TO 2588: NEXT: RETURN 

OFEN 1,8,15,"M-W"+CHRE (7) +CHR$ (28) +CHR$ (1) + 
CHR£(15):REM FLOPFYZUGRIFF BESCHL. 
INFUT#1,R:CLOSE 1 


IF R=21 THEN 5=-9:C=23:6G0SUB 839: PRINT" {RED} 
DISKETTE EINLEGEN !":FOR I=B TO 35980:NEXT 
RETURN 

REITS Suzanne nn nn 

REM #* SHELL —- SORT /(NUM.) *%* 

REM ’=SZ=Z=S=Z=Z2Z222 25232335 2ZZZ2 ZI 2222 ZI 22 

D=4 

IF D{N THEN D=D+D:60T0 438 

D=D-i 

D=INT (D/2) 


IF D{i THEN RETURN 
FOR J=1 TO N-D 


:FOR I=J TO 1 STEP-D 

: IF VAL(D$S(I+D,X)) >=VAL(DE(I,X))GOTO 540 
: FOR T=2 TO 2 

3 SYS 715(DE£(I,T) ,D£E(I+D,T)) 

Ba De RTe ST 

NEXT: I 

NEXT J 

GOTO 458 

REM zs==2=22 222222222522 zZ zemuemme 
REM #* SHELL - SORT/ALFHA *%* 
HEMP=ZSZZES ZZ uScouoooossoommmsmmsge 
D=4 

IF D<N THEN D=D+D:G60TO 618 

D=D-i 

D=INT (D/2} 


IF D<i1 THEN RETURN 

FOR J=1 TO N-D 

:FOR I=J TO i STEF-D 

ı IF D#(I+D,X)>=D£(I,X)THEN 720 

: FOR T=8 TO 2 

ı  8YS 715(D$(1,T),D$(I+D,T)) 

: NEXT T 

:NEXT I 

NEXT J 

G0OTO 638 

REM 

REM #=#+ UEBERSCHRIFTEN 

PRINT TAB (8) " {ORANGE FUCEELEECEECEERELELLECEE 
EL":REM 22 CHR$(99)=SHIFT C 

PRINT TAB(B) "B"sF$(X)5;" B":REM MENUEFUNKTIO 
NEN 


<2508> 
<B46> 


2230> 
<B15> 
«254> 


<B27> 
“28887 
1242 
138} 
<111> 
x1477> 
<B45> 
<B358>7 
<a55> 
<B13> 
<088> 
<B728> 
<B37> 
«255? 
<B18> 
19077 
<B13> 


<127> 


x245> 
<xB05> 


<B39> 
«838? 
12767 
«188? 
<B48> 
x208> 


<B34> 
<088> 


52005» 


<284 > 
«1777 


xB757> 
xBill> 
xB&8> 
<B953> 
<B88> 
207> 
<1688> 
<x207> 
<226> 
»181> 
<x192> 
<8B78> 
zB971> 
-188> 
«2277 
<B26&> 
<B25> 
x254> 
sD74> 
<258> 
*255> 
-078> 
<13527> 
xB93> 
<132> 
<151> 
-1B8> 
«027> 
«885 
<BB2> 
<115> 
<152> 
<2B6> 
205° 
x158> 
254> 
“1177 
<B41> 


“1717 


<123> 


782 


778 
818 
830 


858 
882 
878 
892 


8972 
782 


718 


720 
930 
940 
9758 
960 
978 
980 
990 


1202 
1218 


19202 


1338 
1848 
18358 
1988 


1878 


1080 
1898 
1198 


Aura 
1120 
1138 


1148 
11688 
1178 
1188 
1208 
1218 
1228 


12350 


1248 
1258 


1278 
1288 
1298 
1518 
1520 


13352 
1348 
1558 
1568 
1378 
1382 
15978 
1400 
14180 


1420 
1438 
1448 


1458 
1458 


1478 


FRINT TAB (8) "ICECCEEEECEEETEELLEECECK TBROWN 
+":REM COM-TASTE+Z2 

RETURN 

REM =*= CURSOR POSITIONIEREN =*= 

POKE 211,S:POKE 214,C:S5SYS 58732:RETURN 


REM ** ERSTER BILDSCHIRM 
REM =-======052===- 2222-2 


FPOEKE 53281,7:POKE 53289,8:PRINT" BROWN": BL 
$=" I2OSFACE>Y":REM 28 BLANK 

GUSUB AB1B:FOKE 788,52:REM STOP AUS 
INPUT"AKTUELLES JAHR (1984-1977): "Js JAF= 
RIGHTE (J#,2) 

:IF J£<"1983"0R JF>"1999"THEN FRINT"UNZULAE 
SSIGES JAHR!"=PRINT" ZZUF}";:6G0OTO 988 


REM SHIFT/CRSRt <CHR$ (145) > 
REM ========================2======= 


—-——____272202—2- I II I I I I II 


REM 
SOSUB 42018 
PRINT TAB (18) " {REDYFUNETTONSAUSWAHL = " 
BEREIT RE ERERIKS KAREB Dan nennen "PRINT 
PRINT TAB (5) " XBLUE}-1- {BROWN ,2SFACE}FKONTEN 
ANLEGEN" 

PRINT TAB (5) " {BLUE}-2- {BROWN „2SPACE}BUCHEN 
"PRINT 

PRINT TAB (5) " {BLUE}-3- {BROWN ,2SPACE+KONTEN 
UEBERSICHT":FRINT 

PRINT TAB(5)" <2SPACE „ORANGE „2SPACEF<{KONTEN 
NAMEN AUSGEBEN>":PFRINT TAB(11)"----— ZiSPAC 
E,BEUEF223,5-7% 

PRINT TAB(45) " {BLUE}-5- {BROWN „ZSPACE}MONAT 
SUEBERSICHT" 

FRINT TAB (5) " {BLUE}-6- {BROWN , 2ZSPACE}JAHRES 
UEBERSICHT": PRINT 

PRINT TAB (53 " XBLUE}-7- {BROKN „ZSPFACEFBUCHUN 
GSFOSTEN ABFRAGEN": FRINT 

PRINT TAB (5) " {GREEN}-B- {BROWN „2SPACE}PROGR 
AMM BEENDEN": PRINT 

PRINT TAB(1B) " {RVSON,RED,SPACEFAUSWAHL (8- 


7) {SPACE „RVOFF „BROWN}" 
GET X$: IF X$<"B"OR X$>"7"THEN 1080 

: X=VAL(X$):IF X=Q GOTO 1208 

- IF X<>4 G0TO 1138 

ei g=&:0=22:G0SUB 838: PRINT" {RED}WERDEN BE 
DEN UEBRIGEN FUNKTIO-" 

PRINT TAB(6) "NEN AUTOMATISCH AUSGEGEBEN 
;:FOR I=2 TO 2000: NEXT:GOTO 968 

: ON X GOSUB 1319,1750,2519,2890,3249,3588 
‚4500 

GOTO 960 

REM 


Li zu —U zu 


=... 7 7." -. 2 . oo. -—<-<-— 
oo 


REM 
SOSUB 4218: 60SUB 788: PRINT=:PRINT:PRINT 
CLOSE 1:CLOSE 2:CLOSE 3 

PRINT"SOLLTEN SIE VERSEHENTLICH DAS PROGRA 
MM£Z2SPACE}BEENDET HABEN, 50 KOENNEN "5; 
PRINT"SIE ES MIT" ,„TAB(15SICHR$ (17) " {RVSON,R 
ED,SPACE}GOTO 968 {SPACE ‚RVOFF „BROWN? "CHR$ ( 
17) ,„"WIEDER "5; 

PRINT"STARTEN !":POKE 788,49:REM STOP EIN 
5=9:C=13:60SUB 830:5YS 42115:REM END OHNE 
READY 


GOSUB 4B219:G0SUB 7&0:REM GEW.FUNKT. 
PRINT"£BLUE3ACHTUNG ! EINE EVTL. BEREITS A 
NGELEGTE {2SPACE}DATEI DIESES JAHRES WIRD"; 
PRINT" GELOESCHT.":PRINT CHR&(28) 
FRINT"{RED}WOLLEN SIE DAS (J/N)" 

GET X$: IF X$<>"J"AND X$<>"N"THEN 1358 

:IF X$="N"THEN RETURN 

GOSUB 338: IF ST=-128 OR R=21 THEN RETURN 
OPEN 3,8,15,"S:"+J$+"*":CLOSE 3rAK=Q 

OPEN 2,8,15,"S:KONTEN"+J$ 

PRINT CHR$£(147)5:G0SUB 768 

PRINT:PRINT" WIEVIELE KONTEN WOLLEN SIE AN 
LEGEN" 

FRINT" {25PACE ,RED,RVSON,SPACE}B {SPACE „RVOF 
F,BROWN,2SPACE}= KEINE KONTEN NEU ANLEGEN£ 
3SPACE}" =: INPUT" (1-20) "zKZ 

: IF KZ=® THEN CLOSE 1:CLOSE 2: RETURN 

: IF KZ£1 OR KZ>2@ THEN PRINT CHR$ (145) CHR 
£ (145) CHR$(145);5:60TD 1428 

DPEN 1,8,2,"KONTEN"+J$+" ,L,"+CHR& (141) 
PRINT CHR$(145);:ZZ=9:D$(9,2)="NOCH KEINE 
BUCHUNGEN" 

S=1:C=4:60SUB 830: PRINT"<{RED,RVSON}RETURN 
{RVOFF,BROWN}> = KONTEN ANLEGEN ABBRECHEN 


Listing 1. Das Haushaltsbuch. Beachten Sie bitte die Eingabehinweise auf Seite 77. 
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<1A3> 
<167> 
<202> 
<107> 
<159> 
<B81> 
<163> 


<2RB} 
<21B> 


1777 


<@ll> 
2157 
<151> 


232? 


<171> 
<xa21> 
80537 
<177> 


<199> 


1397 
1537> 
«1905> 
D853> 


<BQ1> 


“0277 


<181?> 
<188> 
0773 
<B35> 
2977 
“2277 
-168> 


x8536> 


x120> 
2477 


<B356> 
<195> 
<2035> 
x216> 
<1905> 


<282> 
<853> 
220> 
944; 
<B15> 
x058> 
<B19> 
050> 
<x125> 


<812> 
<B55> 
xa51> 


<1187> 
<“130> 


<185> 


ine.de 
ine.net 
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1480 
1490 
1508 
1510 


1520 
1538 
1548 
1558 
1560 
1570 
1580 


15970 
1608 
1618 
16208 
1638 
1648 
1458 
1658 
1678 
1688 
16978 
1718 
1728 
1738 
1758 
1788 
1778 
1788 


17978 
18008 


1818 
1820 
1838 
1840 
1859 
1868 
1878 
1888 


1890 
1908 


1918 
1928 
19730 
1940 
1958 
1788 


19780 
19788 


1998 
2008 
2218 


2028 
2038 


2940 
29050 
2098 
2118 


2128 
2138 
2148 
2158 


2168 


Z2SPACE}" 
PRINT" {37SPACE}" 
PRINT" {37SPACE}":REM 36 X SPACE 
FOR I=1. TO KZ 
:PRINT"NAME KONTO NR. ";SPC(S3-LEN(STR$(I))) 
I"z": 
INPUT KN$ 
IF KN$=""THEN I=KZ:G0TO 1618 
IF LEN(KN$) >28 THEN KN$=LEFT$(KN$,2D) 
RC$=KNS+LEFT$ (BL$ ,2D-LEN (KN$) ) 
NE CI)=LEFT$(RC$,12) 
FOR T=1 TO 12 
RCF=RCF+STRF (DO) +LEFT$(BL$,1B-LEN (STR$ (O 
)) 
NEXT T:ZZ=ZZ+1 
: PRINT#1 ,RC$:KN$="" 
NEXT I 
CLOSE 1:CLOSE 2:CLOSE 3 
IF ZZ<KZ THEN KZ=ZZ:REM ABBRUCH ? 
FOR I=1 TO KZ 
DPEN 3,8,3,J$+N$(I)+",5,W" 
PRINT#3,D# (8,8) 
: CLOSE 3 
NEXT I 
CLOSE 1:CLOSE 2:CLOSE S:RETURN 


L} za win a 7 ne 


REM 


G0SUB 2909: IF KN$="E"OR AKk=B THEN RETURN 


IF. ST=-128 OR R=21 THEN RETURN 

X=2:605SUB 411B:LV=1 

PRINT CHR$(147)"{LIG.BLUE}"; :GDSUB 7688: SU= 
17) 

I > 
PRINT" {LIG. BLUE}?NR. ";3KN;" -{SPACE,RED}";KN 
$(KN) 

N m 


FRINT"EINNAHME ODER AUSGABE (E/A) 7?" 

PRINT 

PRINT" {BLUE ,„SPACE}FUNKTION VERLASSEN MIT {S 
PACE „RED}F7 {BROWN}! "3 


1 u 
GET X#:IF X$<>"E"AND XF<>"A"THEN IF ge AI On I 48 


R$(136)G60T0 1868 

: IF X$=CHR$(136)AND LV>1 THEN LV=LV-1:60T 
D 2218 

: IF X$=CHR$ (136) THEN CLOSE 1:CLOSE 2:RETU 
RN 
BA$=X$: REM BUCHUNGSART MERKEN 
=39:C0=6:G0SUB 838: PRINT BA$:S=1:C=9:G60SUB 
839 

INPUT"MONAT (1-12) {7SPACE}: {5SPACE ,BLUE}"5 
MO$: M=VAL (MO$) 

: IF M<1 OR M>12 THEN PRINT CHR#$(145)3;:60T 
0 1918 
PRINT" {BROWUN?---—-—-------- — 
PRINT"ALTER STAND {6SPACE}: {SPACE,LIG. BLUE} 
"zS(M)2ZS(M)=S(M) 
PRINT" {BROWN }-——----------—-—--------------- 
PRINT"KOSTENART, BETRAG, TAG{2SPACE}: {BLUE 
y" 

INPUT D$(LV,®) „SU,BD$ 
PRINT" {BROWN }----------- — —----- 
IF X$="E"THEN S(M)=S(M)+SU:G60T0 2910 
S(M)=S (M)-SU 
PRINT"NEUER STAND {6SPACE}: {SPACE ,BLUE}"5SC 
M) 
PRINT" {BROWN I-------------------------- 
-—— "PRINT 
PRINT" {LIG.BLUE>ALLES RICHTIG (J/N) ?{BROW 
N>" 
GET X$: IF X$<>"J"AND X$<>"N"THEN 2940 

IF X$="N"THEN S(M)=ZS(M):GOTO 1788 

IF LEN(BD£)=1 THEN BD$=Ti$+BD# 

:::REM *=*= TAG ZU DATUM AUFBEREITEN 

*=*= MONAT/TAG/JAHR 

: D$(LV,2)=MO$+BD$+JA$ 

: IF BA$="A"THEN SU=SU-2*SU 

: GOSUB 4370:REM NACHKOMMASTELLE PRUEFEN 

: IF LEN(D£(LV,8))>22 THEN D$(LV,@)=LEFTS( 
D$(LV,B) ‚20) 

: D$(LV,1)=SU$ 


<084> 
<170> 
<178> 
<215> 


<216> 
<113> 
<873> 
<845> 
<245> 
<119> 
<833> 


<135> 
<125> 
<827> 
<927?> 
<B&8> 
“1727 
<19B> 
<135> 
“248? 
<155> 
<097: 
<B82> 
<239> 
“254? 
<805> 
<288> 
3972: 
<120> 


<136> 
x2834> 


<218> 
<254> 
<172> 


<1257> 
<2087 


<1978> 
<B46> 


<Q88> 
<815> 


<088> 
<9858> 
<073> 
“118 
<146> 
x138> 


<137>? 
<1597> 


<168> 
<0354> 
<19B> 


BB > 
<185> 


2112 
<2217> 
<125> 
<9974> 


<B45> 
<078> 
<215> 
<0477 


<1277 
%2327> 


2188 


2198 
2208 


2218 


2220 
2230 
2240 
22508 
2258 
2278 
2288 
2290 


23502 
2318 
2528 
2538 
2348 
2358 
2360 
2578 
2388 
23978 
2400 
2418 
2428 
24530 


2440 
2458 
2480 
2470 
24808 
24908 
2500 
2518 
2520 


2558 
25688 


2570 
2588 


25978 
2808 
2618 


2628 
2638 
2648 


2858 


28668 
2670 


2888 


2698 
2708 
2720 
2738 
2740 
2768 
2778 


2788 
2798 
2888 
2818 
2820 
2830 


2848 
2858 
28980 
2878 


FRINT:PRINT" $BLUE}>WEITERE BUCHUNGEN AUF DI 


Listing 1. Das Haushaltsbuch (Fortsetzung) 


B:goRe 


ESEM KONTO {6SFACE> (J/N) ?XBROWN}" «825> 
GET X£:IF X#$<>"J"AND XFX>"N"THEN 2178 122? 
:IF X£="J"THEN LV=LV+1:5U=8:PRINT CHR#(147 

);:GOSUB 758:560T0 1798 <B23> 
PRINT CHR#(147):FPOKE 211,18:POKE 214,11:SY 

Ss 58732 <192> 
PRINT" £LIG.BLUE}OK. ICH SPEICHERE !" <128> 
Rct="" <109> 
RC$=RCE$S+HKNE+LEFTSE (BL$ „298-LEN (KN$) ) <210> 
FOR I=1 TO 12 134> 
: SE=STRE(S(I)) <055> 
: RC$=RC$+SS+LEFTF(BLF ,10-LEN (S#)) <157> 
NEXT I <187> 
PRINT#2,"P"+CHR#$ (2) +CHR$ (KN) +CHR$ (8) +CHRE ( 

1) „184; 
FRINT#1 ,RC#$ <178> 
CLOSE 1:CLOSE 2:CLOSE 3 <249> 
: <B85> 
REM == ABSPEICHERN DER SEQ.DATEI <169> 
REM == DATEN ANHAENGEN + "APPEND" <138> 
NE=LEFTE(KNE(KN) „12) <«“17B> 
OPEN 3,8,3,J$+N$+",S,A" <102> 
FOR Y=1 TO LV <B78> 
: FOR I=8 TO 2 <817> 
: PRINT#3,D$(Y,I) <023> 
: NEXT I <118> 
NEXT Y <278> 
ECLEOSE 3 <DEu> 
PRINT CHR$ (145) 3; :PRINT" {RED}YWEITERE BUCHUN 

GEN AUF ANDEREN KONTEN{A4SPACE}(J/N) ?{£BROW 

N>" <1356> 
GET X: IF X$<>"J"AND X#<>"N"THEN 2448 <115> 
IF X$="J" THEN 1758 <B85> 
RETURN <a51> 
REM zz=22=m=2 2=-222zz2z ms memmauem <F34 > 
REM *** KONTEN-UEBERSICHT *%%* <B88> 
REM zz==>=2>=z=------2222=z=m=mmmzm—mm=e= < 254 > 
3 <BB7> 
GOSUB 2988: IF KNF="E"OR AK=B THEN RETURN <B&a3> 
X=3:60SUB 4118: IF ST=-128 OR R=21 THEN RET 

URN <BQ91> 
PRINT CHR#£(147)5;:G0SUB 7&8 <215> 
PRINT" #{LIG. BLUEI-------------- => -- -— - — 

TH <{BLUE}" <057> 
PRINT" NR. ":KN: "— "s"X{RED}Y"KNE"<LIG.BLUE}" <B96> 
PRINT"----—--—-—--—- —- -—- - — — - - - - -  _ — — . — _  — 

u <149> 
PRINT SPC (2) "MONAT"SPC (22) "SALDO" <B91> 
PRINT"—-------------- - - 22 - - - nn - - - 

—-- {BROWN} " <B62> 
65=8 <164> 
FOR I=1 TO 12 x230> 
: PRINT SFC (Z)IME(I);SPC (22-LEN (STRE (INT (St 

ID))))"<LIG.BLUE}Y"SCI) "{BROWN}" 2244 > 
ı G65=65+5 (I) EIS, 
NEXT I xD27?> 
PRINT"------------ - - - - ------ - - - - - 

ir <229> 
PRINT SPC (2) " {RED}"J£; SPC (3) " {BROWNIGESAMT 

"SPC (18-LEN (STRE(INT (6S) ))) " ZBLUE}"GS <B7&> 
FRINT SFC (27) "=========='" <229> 
ELOSE 1:CL0SE 2:IF X$=CHRE (135) THEN PRINT# 

4:CLOSE 4:60T0 2788 <212> 
PFRINT"WEITERE UEBERSICHTEN ={SPACE,RED}>FS{ 

BLUE}" <230> 
GOTO 2768 <228> 
RETURN <Ba356> 
REM zs==2=222 2222222 2=e=2=2o222=2=m=m=mmen <229> 
REM =*= UF AUSDRUCKEN ? === <119> 
Aa me Er <249> 
FOKE 214,24:POKE 211,0:5SYS 58732 <052> 
PRINT" {2SPACE}AUSDRUCKEN ={SPACE,RED}F1 {BL 

UE,SSFACE}>ZUM MENUE {2SPACE}= {SPACE „RED’FST 

BLUE}"s; PRINT CHR#+(145); <BBi> 
: GET X#+$: IF X$=CHR#(1533)G0T0O 2828 <952> 
2 IF X$=CHRE(134)AND X=53 GOTD 2518 <208> 
:IF X$=CHRE (13SI)GOTO 788 <1978> 
: G60T0O 2788 - <152> 
GOSUB 258: IF ST=-128 THEN X$="":60T0 275898 <B> 
ELOSE 4:0PEN 4,4: PRINT#4 ,CHR$ (27) +CHR# (1908 

)+CHRE(1B) :CMD 4: IF X=3 GOTO 25489 <236> 
ı IF X=5 GOTO 3428 <121> 
: IF X=4 GOTO 38582 <139> 
: <115> 
REM zs==2=:z22=2==2=222=222zzS22222ezmum <124> 
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C 64 Anwendung des Monats 


2888 REM *## KONTENNAMEN AUSGEBEN #%*%* xB52> 
DOGRBFZREM zzszz2nmugrzeznzu nme en <144> 
29008 X=4: PRINT CHRF#(147)35:605UB 768: PRINT <158> 
2918 IF AK{>B THEN GOSUB 3129: RETURN <214> 
2920 GOSUB 338: IF ST=-128 OR R=21 THEN RETURN <B72> 
2938 OPEN 1,8,2,"KONTEN"+JE+",L,"+CHRE (141) <B8B> 
2940 OPEN 2,8,15 <878> 
2950 : Ak=1 <958> 
2960 : PRINT#2,"P"+CHR$ (2) +CHR$ (AK) +CHRFE (B) +CHR 

$(1) <134> 
2970 : RC+="" <142> 
2988 : INPUT#1,141,RC$: IF LEFT$(RC$,1)="a"THEN 

RC+="":560TD 39840 <187> 
2990 : INFUT#2,R <B239> 
3000 : IF R=58 THEN RC$="":6G0T0O 3948 <209> 
3018 : KNECAK)=LEFTF (ROCK, 28) :LZ=LEN (STRE (AK) ) <1977> 
3028 : PRINT SPC(3-LAIAKS" — "SKNECAK) 213? 
3030 : AK=AK+1:60T0 29809 <B84> 


3B4B AK=AK-1:CLOSE 1:CLOSE 2: IF AK{>QB GOTO 3968 <225> 
5858 PRINT TAB(&)" {RED>DATEI "J#" NICHT GEFUNDE 


N !{BROWN?":FOR I=Q TO 2888: NEXT: RETURN <B81> 
SB2hB GOSUB 3139: RETURN <a27> 
3078 : <067> 
3888 REM *#* K O NT OO AUSWAEHLEN #%* <195> 
ZB9UB REM z=z=2==2=2=2=2=2=2=22 222222222222 =2===== <B89> 
311® GOSUB 497978 <1497> 
3128 FOR I=1 TO AK:SLA=LEN (STRE(I)}: PRINT SPC (3- 

L/) IsKNE(I)SNEXT I <185> 
3130 FRINT:FRINT"ABBRECHEN MIT {SPACE ,RVSON,RED, 

SPACE3E {SPACE „RVOFF „BROWN}" <244> 
3148 INPUT"KONTONUMMER (1-28) : ";KN# <187> 
3158 : IF KNE="E"OR AK=@B THEN RETURN <196> 
316808 : KN=VAL(KNE) <188B> 
31798 : IF KN<i1 OR KN>AK THEN FRINT CHR#(145);:6 

OTO 3148 R <238> 
3188 RETURN <xB06> 
3208 REM =====-=-=-=2=2=-=2=-2 222222222225 2=25 <199> 
3218 REM ** MONATSUEBERSICHT “RR <183> 
32208 REM ========22 22 2222222253523 SE2E5= <219> 
3248 PRINT CHR$(147);5:G60SUB 7698:PRINT <115> 
32580 INPUT"MONAT {2SFACE}: ";M <208> 
32648 : IF M<i1 OR M>12 THEN PRINT CHR#E(145)35:60T 

0 3250 GL37> 
3270 : <B12> 
3288 GOSUB 330: IF ST=-128 OR R=21 THEN RETURN 1757? 
3298 OPEN 1,8,2,"KONTEN"+J£+",L,"+CHRE (141) <1857> 
3308 OPEN 2,8,15 <1853> 


3318 65=9:KN=1 <B44> 
3328 PRINT#2, "P"+CHR$ (2) +CHR$ (KN} +CHRE (DB) +CHRE$ ( 

1) <174> 
33380 :RC$="" <248> 
3340 : INPUT#*1,141,RC#: IF LEFTF(RC$,1)="s"THEN 

Rct="":G0TO 3418 xB38> 
33580 : INPUT#2,R <x145> 
3368 : IF R=5B THEN Rlc$="":60T0 3418 <928> 
3378 : KNF(KN)=LEFT$(RC$,20) <B42> 
3388 : SFtKN)=MIDS$ (RC#, (28+(M-1)%*19),10) 255> 
33970 : 65=-65+VAL(SF(KN)) x140> 
3408 : KN=KN+1:60T0 3328 x217> 
3418 SU=6S:60SUB 4578 2327 
3428 PRINT CHR$ (145) "—-—-------—- SPACE ,RED}Y"3M&( 

M)s;" "IE" {SPACE „BROWN?-----—--— = -878> 


3438 PRINT" {BLUE}NR. {SSPACEINAME {16SPACEISALDO" <209> 
3448 PRINT" £BROWNI-—-----—--------------- 


es re ” <233> 
3458 FOR K=1 TO KN-1:L%=LEN(STRE(K)) <B32> 
3468 : PRINT SPC (S-LA)IK5KNE (CK) ;SPC(ö-LEN (STRE CI 

NT (VAL (S#F(K))))))"ALIG.BLUE}"S#(K) " {BROWN} 

Me <11B> 
3478 NEXT 92977 
SABUYPRINT. 2 EBREWEN 3 — ee I nen ren see rennen rn 

— a <217> 
3498 PRINT M#$(M)" "JE;SPC (3) "GESAMT "SPC (7-(L-1 

I) "<BLUE}"SUF" {BROWN}" <125> 
3508 PRINT SFEC (24) "==========" <B45> 
351B CLOSE 1:CL0OSE 2:IF XF=CHRE (133) THEN FRINT# 

4:CLOSE 4 <195> 
3528 GOTO 27588 <037> 
3548 REM %%% =======2=2=2=22=2=2=2==2=22=2=5=2= #% «128° 
3550 REM #** JAHRESUEBERSICHT *%* <247> 
3548 REM #%#%# =====2 222 2222222 =m=m=m== #% <14B> 
3588 PRINT CHR#£(147);:60OSUB 788: PRINT <208> 
3598 PRINT" {25PACE}SALDO {2SPACE}12 {2SFACE>MONAT 

Ef{2SPACE?( J/ N ) ?":PRINT:PRINT <136> 
3680 GET X$:IF X$<>"J"AND XF<>"N"GOTO 3488 «225> 
3618 : IF X#="J"THEN U=1:0=-12:60T0 3868 <194> 
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3628 PRINT"GEBEN SIE BITTE UNTER- UND OBERGRENZ 


E AN": INFUT"(U,0) --> "z3U,0 <180> 
3630 IF L<1 OR U>12 OR 0<£1 OR 0>12 THEN PRINT C 

HR$ (145) CHR$ (145) CHR$(145)5,:60T0 3628 <@46> 
3648 IF U>O THEN T=U:U=0:0=T <a71> 


Zuhß GOSUB 338: IF ST=-128 OR R=21 THEN RETURN <B45> 


3678 PRINT CHR$(147)5:60SUB 760: PRINT <B35> 
368® OPEN 1,8,2,"KONTEN"+J$+",L,"+CHR$ (141) <B65> 
3698 OPEN 2,8,15 £063> 
3708 JS=B:FOR K=1 TO AK:MS(K)=Q:NEXT:KN=1 {228> 
371® : PRINT#2, "P"+CHR$ (2) +CHR$ (KN) +CHR$ (@) +CHR 

$(1) <132> 
372@ :: INPUT#1,141,RC$: IF LEFT$(RC$,1)="a"THEN 

RC$="":60T0 3848 {228> 
3738 : INPUT#2,R <a14> 
3748 : IF R=5® THEN RC$="":60T0 5840 <192> 
3750 : KN$(CKN)=LEFT$(RCF,20) <167> 
3760 : FOR M=U TO 0 <192> 
3778 : S$(KNI=" ":5=Q <200> 
3788 : S$(KN)=MID$(RC$, (20+ (M-1)%*10) „10) <144> 
3798 : S=VAL(SSCKN)) | <146> 
3808 : MSCKNI=MS(CKNI+S <227> 
381® : NEXT M <249> 
3820 : JS=JS+MS(KN) <Q84 > 
3830 KN=KN+1:60TO 3710 <281> 
3848 SU=JS:GOSUB 4370 <155> 
3858 PRINT" {BROWNI--—-——-------- {SPACE ,RED}"J$" 

{BROWN „SPACE I------------——— u <218> 


3858 FRINT" {BLUE}NR. {2SPACE>NAME {1 


3878 PRINT" {BROWNI------—--------- 


7SPACE>SALDO" <129> 


FF hu <153> 
3888 FOR K=1 TO KN-1:L%=LEN(STRE(K)) <208> 
3898 :PRINT SPCE(3-LYOK;5KNECK)ZSPEC(Ö-LEN(STRELIN 

T{tMS(K)))))"<LIG.BLUE}"MS(K) " {BROWN}" <B98> 
397908 NEXT <2B85> 
SER OR ER EIN ER RENG ee ema 

nen = <195> 
39280 PRINT" {SPACE,RED}Y"s:J#;" SALDO "s; <B48> 
3938 PRINT LEFTF(MF(U)„S)" — "LEFTFCMF(O) „3S)SPC 

(9-(L-1) 3)" <BLUE}F"SUF" {BROWN}" <191> 
3948 FRINT SPC (253) "======2=2=2===" <035> 
3958 CLOSE 1:CL0OSE 2:IF XF=CHR# (133) THEN FPRINT# 

Mi) Su TLOSE 4 1237 
5 bOTIO 2768 x2253> 
39958 REM zs===2=2=2=2=2=2=2=2==2=2=2=222:25552=== %#% <176> 
3998 REM #** PROGRAMMKOFF ERSTELLEN *##* <B753> 
AUBBTREM zz2=22>.- 2a __ ana zz ee ER <194> 
43818 PRINT CHRE(147; <Bös5> 
4928 FRINT TAB(4) "====2=2=2=22 === 22a _ 

===" <B&84> 
4838 FRINT TAB(A)'"HAUSHAL TS B UTC Hi5SP 

ACE}Y"+J# <145> 
ABAUB PRINT TAB(4) "====== ===. 2:22 2=2=—===m=s222>2>2> 

===!" <B84> 
4258 PRINT:RETURN xBAaä> 
AQ7B REM #%% =====z22=22222222z.==zz—z—=m—=— ## < 148; 
4080 REM *#* KONTO EINLESEN *% <020> 
4D9U REM **% ========2===2==2=ssemseomen 2% <x1ib8> 


4118 GOSUB 338: IF ST=-128 OR R=21 


THEN RETURN <241> 


4128 FRINT CHR#£(147)5:60SUB 7588:PRINT: PRINT <x186> 
4138 FRINT: PRINT" {LIG.BLUE}KONTO {SPACE ,„RED}";KN 
£(KN);"{LIG.BLUE,SPACE?WIRD EINGELE-SEN !t 


BROWN} " <@22> 
4148 OPEN 1,8,2,"KONTEN"+J$+" ,L,"+CHR$ (141) <@15> 
4158 DPEN 2,8,15 <Q13> 
4188 PRINT#2, "P"+CHR& (2) +CHR$ (KN) +CHR$ (B) +CHRS$ ( 

1) <B14> 
4170 Res="" <a09 > 
4188 : INPUT*1,141,RC$: IF LEFT$(RC$,1)="2"THEN R 

C$="":G60T0 4318 <113> 
419@8 : INPUT#2,R <220> 
42008 : IF R<>5® THEN 4258 <202> 
4218 PRINT:PRINT"JAHRESDATEI BZW. KONTO NICHT G 

EFUNDEN !"zPRINT <184> 
4228 PRINT"WEITER MIT{SPACE,RVOFF,LIG.GREEN,SPA 

CE?TASTE {SPACE ‚RVOFF „BROWN,SPACE}! "5 :WAIT 

198,1:POKE 198,8 <236> 
4238 CLOSE 1:CLOSE 2:RETURN <a59> 
4240 : <218> 
4258 KN$=LEFT$(RC$,28) <121> 
4260 65=9 <B48> 
4278 FOR I=1 TO 12 <114> 
4280 : SCI)=VAL(MIDF(RC$,28+(I-1)*10,10)) <211> 
4298 : 68=65+5 (1) <137> 
4388 NEXT I <167> 
4318 RETURN <116> 
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320 
4338 
45340 
4358 
4368 
4378 


4380 
4398 
4400 


4418 


4420 
4430 
4440 
4450 
4460 
4478 
4480 
4490 
4500 
4518 
4520 
4530 


4540 
4558 
4568 
45780 
4580 
45978 
400 
4610 
4628 


4830 


46408 


4652 
4660 
4678 
4680 
46970 


4708 
47108 


4720 
4738 


4740 
4758 
4768 
4778 
4788 
4790 
4800 
4810 
4528 
4838 
4540 
4850 


4860 


48708 


4888 
4878 


49728 


4918 


4920 


: <042> 4938 
REM zssS22=2=s==e2zuszzs>2s=2suzuuuusmoeem a br 49489 
REM = UP SUMMENAUSGABE AUFBEREITEN <128> 4958 
REM = <FRINT USING>-SIMULATION 13352 4968 
er an Im run um as a rasen van an a <PRB6 4978 
SUE=STR# (SU) :A=LEN (SUF):L=Q:FOR T=1 TO Asl 4988 
F MID$(SU$,T,1)="."THEN L=T:T=A <2097> 4990 
NEXT T <B25> 

: IF L=QB THEN SUF=SU$+".DDO":L=A+1: RETURN LI a) ul r]R) 
ı IF A>=L+2 AND SU<B THEN SU=SU-.BBBR1:SuUr sa10 
=LEFTE(STR$ (SU) „L+2) RETURN <“B41> 

: IF A>=L+2 AND SU>B THEN SU=SU+. BR991:5UF 220 
=LEFT$(STRE$ (SU) „L+2) :RETURN <B487> Sa38u 
: IF A=L+1 THEN SUF=-SUF+"B" <067> 5948 
RETURN “2377 S5o5o 
: <18537> S5a&2 
REM ===2====z=2mS3S52=2=2=2=2S2=2=22222= mm <174> s970 
REM == SONDERFUNKTIONEN = <204> 5980 
REM == SEQ.BUCHUNGSDATEIEN == <«122> 

a TH TI <?PQ4 > 

: i | <213> 5290 
FS#(1)="DATEI LADEN {7SPACE,„SHIFT-SFACE}" <0697> 
FS$(2)="DATEI SICHERN {SSPACE „SHIFT-SPACE}" «2487 S1B8 
FS# (3) ="BUCHUNGEN AUSGEBEN {SHIFT-SFACE}" <121> S118 
FS$ (4) ="BUCHUNGEN AENDERN {SPACE „SHIFT-SPAC 5128 
E32 <055> 5138 
FS£ (5) ="BUCHUNGEN SORTIEREN" <B9&8> 5148 
FS#(8)="S-FUNKTION BEENDEN " <234> 

8 <B27> 5145 
FB£ (B) ="KOSTENART {45PACE>" <201> 
FB#£(1)="BETRAG {7SPACE}" “206> S158 
FB$ (2) ="BUCHUNGSMONAT" <B02 > 

ı 5%A=B oh Ber 67 51482 
GOSUB 3999: PRINT <Q73> 

PRINT TAB (8) " {RED3SONDERFUNKTION":PRINT TA 5178 
BB) "---------- u <128> 

PRINT TAB (8) " {BLUEFBUCHUNGSFOSTEN BEARBEIT 5188 
EN"=PRINT «094: 5198 
FRINT TAB (5) " X2SPACE „ORANGE ,„SPACE?<DATEI L 

ADEN> ----?> {SPACE,RVSDN ,„BLUEF3{RVOFF „SPACE 5228 
+- {SPACE „RVSON}S {RVOFF}" <164> 

PRINT TAB (5) " ZBLUE ,„RVSON}Z {RVOFF „BROWN ,Z2SP 5218 
ACE}DATEI SICHERN": PRINT 54e ImFes. 
PRINT TAB (5) " {BLUE ,RVSON}3{RVOFF ‚BROWN, ai on 
ACE}>BUCHUNGEN AUSGEBEN" 132? 5238 
PRINT TAB (5) " {BLUE ,RVSON}4 {RVOFF „BROWN,„2SP 

ACEF+BUCHUNGEN AENDERN" xD84> 3248 
PRINT TAB (5) " {BLUE „RVSON?S {RVOFF „BROWN „2SF 3258 
ACE}BUCHUNGEN SORTIEREN": PRINT:PRINT <197> 35268 
PRINT TAB (5) " {GREEN}B {BROWN „ZSPACE}?SONDERF 5278 
UNKTION VERLASSEN": FRINT:FRINT “18537 

s <168> 5288 
PRINT TAB (8) " {RED,„RVSON, SPACE FAUSWAHL {25SPA 

CE}?B-5 {SPACE „RVOFF „BROWN „SPACE>" <085> 

: <188> 52780 
GET F$: IF F$="B"THEN CLOSE 3:G05SUB 4828: RE 

TURN:REM ZUM HAUPTMENUE <132> 5308 
IF FF<"Z2"OR F$>"5S"THEN 47382 <199> 5318 
FU=VAL(FF) <1909> 3328 
:ON FU GOSUB 4399,4549,59790,6889,4030 «2892 > 9358 
G0TO 4618 <a98> 

a <248} 5342 
REM =#=*= SONDERFUNKTIONEN VERLASSEN #=* <114> 3338 
REM FRUEFEN,„ OB AENDERUNGEN GESICHERT =*= <161> 5362 
8 «B22> 

IF AV=B AND S5%=B THEN RETURN <Q4B> 5378 
FRINT CHR#(147):G60S5SUB 4990: FRINT «1737 

IF AV=B AND 5%=1 GOTO 4898 <192> 5388 
FRINT"DIE DATEI {SPACE ,RED}"KN# (ZW) " BROWN, 53978 
SFACE}’WURDE" „"VERAENDERT, ABER NICHT GESIC 5408 
HERTZ <Bß4B> 
FRINT:FRINT"WOLLEN SIE SICHERN ? -—--> {25PA 5418 
CE,RED,RVSON,SFACE}S {SPACE,RVOFF ,BLUE}" <178> 
FRINT:PRINT"ZURUECK ZUM MENUE {Z2SPACE}? --- 5420 
>{iSFACTE „RED}YRETURN {BLUE}":GOSUB 4929: AV=B: 

RETURN <152> 54350 
| <995> 5440 
PRINT"DATEI {SPACE „RED?"KN& (ZW) " {BROWN,SFAC 5458 
E}WURDE” „"SORTIERT, ABER NOCH NICHT GESICH 

ERT !" <859> 5450 
FRINT:FRINT"WOLLEN SIE SICHERN ? --->125PA 5478 
CE,„RED,RVSON ,SPACE}?S {SPACE „RVOFF „BLUE?"=PR 

INT <174> 5458 
PRINT"ZURUECK ZUM MENUE {2SPACE?? --—- > {SPAC 5498 
E,RED}RETURN {BLUE}" <220> SSaB 
GET X#: IF X#=CHR# (13) THEN RETURN <B12> 5518 
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IF X$="S"THEN SA=8:G605SUB 4598: RETURN x2B7> 
GOTO 4928 <x185> 
D <1853> 
REM =*= UEBERSCHRIFT / FUNKTION <2B1> 
REM ====2=22r 2222222 =S2552zZ2R 223325 184> 
: «1957? 
PRINT TAB (8) " {ORANGE FULLLLCCELLELCLELECELECE 

SET" <B85> 
PRINT TAB{8)"B ";FS#(FU) 5," 2SPACEIB" <8777> 
PRINT TAB(8) "JECELLEELCCEECEEELELECERK TBROW 

N>" <114> 
FRINT: RETURN <B1&> 
= <243> 
REM z2===2=222 25222 22 z252s222 Zu <254> 
REM == BUCHUNGEN AUSGEBEN — <057> 
PRINT CHR$ (147); <125> 
GOSUB 49978: PRINT:PRINT" {BLUE}FDRUCKER ({RVS 
ON,RED}’D{RVOFF ,BLUE}) ODER BILDSCHIRM ({RV 
SON,RED}B{RVOFF „BLUE}) 7" <151> 
GET At: AAF=A$: IF AtZ>"D"AND AsT>"B"G0OTD 59 

78 <0953> 
GOSUB 8308: IF KN$="E"OR AK=QB THEN RETURN <181> 
IF ST=-128 OR R=21 THEN RETURN <127> 
IF At<>"D"G0TO 5188 <B71> 
GOSUB 259: IF ST=-128 THEN ZW=B: RETURN 2188? 
ECLOSE 4:0FEN 4,4: PRINT#4 „CHR (27) +CHRE (198 
I+CHRE (19); “215> 
FRINT#4 ,CHR# (18) ; CHR$ (14) 3;KN$ (KN) 5; " {SHIFT- 
SPACE}";J$;CHR$ (19) <180> 
FRINT#4,"KOSTENART {18SPACE}BETRAG {7SPACE}D 
ATUM<SSPACE}" <B87> 
PRINTEAL°————— 2... 2... 

mm een ":PRINT#4 «238? 
IF Z=B THEN PRINT#4:PRINT#4,5SFC(MDf(Z,9): 
FRINT#4:CLOSE 4:RETURN saa5> 
FU=3:5U=B: ZZ=® <19Q> 
FRINT CHR#(147)35,:60SUB 4998:PRINT:PRINT KN 

£Z(KN) PRINT 157> 
IF Z=8B THEN PRINT TAB(9B)"{REDI"DEF(Z,B): FO 

R I=8 TO 2898: NEXT:RETURN <B853> 
: SB$(B)="":5B$(2)="" «B&68> 
FOKE 211,3:POKE 214,13:5YS 58732: PRINT" BL 
UE>DRUECKEN SIE BEI NICHT RELEVANTEN" <125> 
PRINT TAB (3) "FELDERN {2SPACE}----?> {25SPACE,R 
ED}RETURN {BROWN} " <225> 
FOKE 214,7:PRINT <240> 
: FRINT FB$(2);: INPUT SB# (9) x2B2> 
ı FRINT FB#(2);:INPUT SB#(2) “216? 
IF SB£(Z)<>""AND VAL (SBE(Z2))<1 OR VAL (SBE( 
2))>12 THEN PRINT CHR#(145);:60TD 5258 207? 
FRINT CHR#(147) 3; :G05SUB 4998: PRINT" {RED}"KN 
$(KN)" "JE:PRINT" {BROWN>": IF FU=4 G0OTO 558 

2 *168> 
IF SB£(B)=""AND SBF(ZI=""AND At<>"D"THEN F 

OR Y=1 TO Z:605UB S688:NEXT Y:GOTD 5478 <254> 
FOR Y=1 TO Z <151> 
: S5B=8 «1351? 
: IF SB£f(B)="" THEN SB=1:60T0 5348 1277 
: IF LEFTF(DE(Y,B) ,LEN(SB$(B)))=SB£(B) THE 

N SB=SB+1 <246> 
: IF SB$£(2)=""THEN SB=SB+1:60T0 5388 <216> 
:::REM =#= DATUM 1- OD. 2-STELLIG? 3397 
: IF LEN(DE(Y,2))=5 AND LEFT$(DE(Y,2),1)=S5 
B£(2Z)THEN SB=SB+1:G0T0 53882 “168> 
: IF LEN(DF$(Y,Z23)=5 AND LEFTE(DE(Y,„2),2)=S 

B$(2) THEN SB=SB+i1 <3355> 
: IF FU=4 GOTO 5429 <179> 
:IF Ar<>"D"G60TO 5418 <149> 
: IF SB=2 AND FU=35 THEN GOSUB 5888:60T0 54 

48 “849> 
: IF SB=2 AND FU=3 THEN GOSUB 5882:60T0 54 

40 «9597? 
: IF SB=2 AND ZZ>@ THEN GOSUB 7152:60T0 54 - 

40 <“284> 
: IF SB=2 AND ZZ<1 THEN GOSUB 7142 “208> 
NEXT Y xB48> 
IF FU=4 OR E$="E"THEN RETURN:REM ZU "AENDE 
RUNGEN" " <220> 
IF Af="D"THEN GOSUB 5989:50T0 550% <B40; 
EREZENTETRSBEZU Se "PRINT TAB(1B)"«L 

16. BLUE}SUMME {BLUE „SFPACE}"3 :GOSUB 4378 <148> 
FRINT TAB (28- (1-13) 5U$; " {BROWN}" <278> 
ZZ=® <229> 
PRINT:PRINT" {RED}DATEIENDE ERREICHT." <128> 
PRINT"SUCHBEGRIFF NICHT (NOCHMALS? GEFUNDE 

Ausgab&4efahll985le 
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N !"=PRINT 2252> 6138 GET X#: IF X#=CHR$(13)THEN RETURN 202> 


5528 PRINT" {BLUE}WEITERE BUCHUNGEN SUCHEN (J/N) 6148 IF X$<"1"OR X#>"3"G0T0 6159 “233> 
€ dis <114> 68158. X=VAL(X$)-1:PRINT <195> 
SSZEB : GET X$: IF X$<>"J" AND X#<>"N" GOTO 5558 176; &1&8 PRINT TAB(4)"ICH SORTIERE, BITTE WARTEN SI 
5548 :: IF X$="J"AND 5%<{>Q GOTO 5188 <134> E !":5%=1:REM KENNZ. DATEI SORT. <172> 
5550 :IF X#="N"THEN CLOSE 3:RETURN <138> #178 IF X=QB THEN GOSUB 689:G0T0 6198 <084> 
5548 PRINT CHR&£ (145) " {BLUE}GLEICHES KONTO {SPACE 6188 GOSUB 428 <B95> 
„BROWN? "KNS& (KN) „"{BLUE,SPACE} (J/N) 7"; <167> 6198 PRINT TAB (4) "ZBLUE}DATEI {SPACE „REDY"KNE(KN 
5570 :GET X$:IF X$<>"J"AND X$<>"N"GOTO 5578 220: )" BLUE „SPACE }WURDE" „TAB (4) "NACH {SPACE „RED 
5588 :IF X$="J"G0OTDO 5189 <185> 3" ,FB$S (X) "{BLUE,SPACEISORTIERT !" t125> 
55980 KN=B <1902> 6208 PRINT:PRINT TAB (4) "BUCHUNGSFOSTEN AUSGEBEN 
5402 PRINT CHRE(147):605SUB 311Q:IF KNE="E"OR AK (37092 <217> 
=8 THEN RETURN <222% &21B :GET X: IF X$<>"J"AND X$<>"N"GOTO 6218 2887; 
56108 IF KN=ZW THEN 5188: REM PRUEFEN, <005: 8228 :IF X#="J"THEN GOSUB 5182 <231> 
562B ZW=KN: REM DB GLEICHE KN WIE &238 :FU=5:605UB 4828 <191> 
VORHER <1645 6248 RETURN <aQ&> 
5438 CLOSE 3:60SUB 6330: IF AAft="D"THEN At=AAF:G 6258 : <188> 
5540 GOTO 5182 <117> 6278 REM == DATEI LADEN : <228> 
56558 ::REM =*+=* BUCHUNG AUF BILDSCHIRM <194> 6288 REM ============== === 2022222222 <219> 
SA&D ::REM =s=====2=2 22222222222 2=222222>2=5. a y5 298 : <P?2B? 
S470 : <118> s30B GOSUB 2928: IF KN$="E"DOR AK=Q THEN RETURN <B28: 
5682 PRINT D#(Y,B);"{BLUE}"; <B38> &318 IF KN=ZW THEN RETURN: REM PRUEFEN, <132> 
5698 D=VAL(D$(Y,1)):SU=SU+D <245> 6328 IF S%AX>8 OR Av<>B THEN GOSUB 4829:5%=9: REM 
5708 FRINT TAB(29-LEN (DE (Y,1)));DE(Y,1)5" {BROWN DB GLEICHE KN WIE VORHER <111> 
>"; <B81> 6338 ZW=KN: NF=SLEFTE(KNECKN) „12) <123> 
5718 IF LEN(D£(Y,2))=5 G0OTO 5738 <178> 6348 PRINT CHRF£(147):FU=1:60SUB 4990 <126> 
57208 PRINT TAB(31)3MIDE(DE(Y,2) ,3,2)"."LEFT$ (DE 6358 PRINT=:PRINT:FRINT" {BLUE}DATEI {SFACE,RED}F"K 
(Y,2),2)". "RISHT$(D$(Y,2),2):G0T0 5748 <B0OB> N£(KN) "{BLUE3WIRD GELADEN !" <872> 
5738 PRINT TAB(3Z1);3MID$(DE(Y,2) ,2,2)". "LEFT$(D 6358 GOSUB 338: IF ST=-128 OR R=21 THEN RETURN <195> 
£(Y,2),1)". "RIGHT$(D$(Y,2) ,2) <117> 6378 OPEN 2,8,15 | <193> 
5740 ZZ=77+1 <119> 6388 OPEN 3,8,3,J$+N£+",5,R" <«B58> 
575@ IF Y=Z-1 AND ZZ>=11 THEN ZZ=9:605SUB 5788:6 6390 INPUT#2,R:IF R<>&2 G0TO 5418 <121> 
0OTO 5778 <?38> 6408 z:PRINT"DATEI NICHT GEFUNDEN '!":CLOSE 2=:CL 
5768 IF ZZ>14 AND Y<Z-1 THEN ZZ=8:60SUB 5788:RE DSE 3:FOR T=B TO 3228: NEXT: RETURN 169} 
M =#= AUSGEBEN BIS 15 STUECK <126> 6418 Z=Q: INPUT#3,DF(Z,8) ,„D£(Z,1): IF ST=44 THEN 
5772 RETURN <B46 > CLOSE 3:CL0OSE 2:RETURN <B93> 
5788 FRINT TABL29) "--—-- "PRINT TAB(1B)3"{ 6428 CLOSE 3 <BR: 
LIG. BLUE}SUMME {BLUE ,SPACE}";:60SUB 4378 <2B& > 8438 DPEN 3,8,3,J$+N$+",5,R" <199 
5798 FRINT TAB(2&4-(L-1))SU8s; " {BROWN}" <133> 6448 INPUT#3,D+ (8,2) 1057 
5802 FRINT:FRINT"{LIG.BLUE}WEITER MIT{SPACE,RED 6450 Z=1 <136> 
„RVSON,SPACE}TASTE {SPACE „RVOFF}"35 <B62> 6460 : <145> 
5810 : WAIT 198,1:POKE 198,8 os238> 1 a “0747 
5828 ::PRINT CHR$(147);:60SUB 4998: PRINT" {RED}" _ <183> 
KN&(KN)" "J£" £<BROWN}"=:PRINT <165}> 6498 IF ST<>64 THEN Z=Z+1:560T0 6448 <238> 
5832 RETURN <106> 6502 CLOSE 3:CLOSE 2:RETURN <B36> 
5840 : REM ** AUSGABE AUF DRUCKER  ** <a59 &51B : <195> 
SESR: 5: REM zsezzzzesssseseszezunzenennnnn <191> BS2ZBERENZ=z= === ai num nenne FDA: 
S586B D=VAL(DE(Y,„1)):5SU=SU+D <159> 68530 REM == DATEI SICHERN == <145> 
5872 PRINT#4 = CHR& (27) "D" 5 <B&A4 > 65408 REM ======2=22=22222=2=2=2=2=2=2=2=2=2=2=20= == ea pe 
5880 FRINT#4 ,„CHR$ (1) +CHR$ (34-LEN (D# (Y,„1)) I) +CHR$ 8550 : «233? 
(39) +CHRE(D) ; <B81> 6560 IF Z>Q GOTO 6598 228, 
5890 PRINT#4,CHRE(9);D$(Y,„D) ;ZCHRF(M5DECY,1); <124> 6578 POKE 214,23:POKE 211,8:5YS 58732:PRINT"KEI 
5988 IF LEN(D$(Y,2))=5 GOTD 5738 <115> NE DATEN IM RECHNER" <184% 
5910 PRINT#4,CHR£(9)MID$(D$(Y,2) ,3,2)"."LEFT$(D 6588 :FOR X=2B TO 2099: NEXT:RETURN <172> 
£(Y,2) ,2)". "RIGHTF(D$ (Y,2) ,2) <113> 6598 PRINT CHR$(147) 3 :FU=2:60SUB 4998 <181> 
5920 GOTO 5949 <114> 6408 FPRINT:PRINT"{BLUE}DISKETTE EINGELEGT ?":PR 
5938 PRINT#4,CHR$(F)MIDE(DE(Y,2) ,2,2)". "LEFTSt INT 2177? 
D#(Y,2) ,„1)"."RIGHT$(D$(Y,2) „2) <131> 6618 FRINT" {BROWN}FDRUECKEN SIE ANSCHLIESSEND {SP 
5949 RETURN <217> ACE ,„RED,RVSON,SPACE}YS {SPACE „RVOFF „BLUE}":PF 
5950 : <143> RINT:FOR I=28 TO 82@:NEXT <054> 
5968 PRINT#4,SPC (25} "---------- "sPRINT#4,SPC (18 6628 PRINT:PRINT"WOLLEN SIE DIE GEAENDERTE DATE 
);"ALIG.BLUE}SUMME {BLUE „SPACE}";5:G0SUB 437 I ",KN£(ZW" NICHT SICHERN @2SPACE 3?" «2847 
2 <132%> 5438 PRINT"DANN MENUE {3SPACE}I-—-—-?{3SPACE „REDYRE 
5978 PRINT#4,SPC (15-(L-1)):SU$; " {BROWN}":CLOSE TURN {BLUE }" <B87> 
4: At="":RETURN <O64> B6AB GET X$: IF X$<>"S"AND X$<>CHRE(13)G0OTO 5648 <198> 
598B : <173> 6658 : IF X$=CHR&(13)THEN RETURN <1853> 
SI99RA REM ====2=2=2=2=2=22=2=22=22= ms s=mz=mz=zsee <184> &hsB GOSUB 338: IF ST=-128 OR R=21 THEN RETURN <241> 
000 REM == DATEI SORTIEREN — <B44> 6678 PRINT: PRINT "BUCHUNGSDATEI {SFACE  „REDY"KNE#(Z 
6Q1B REM =s===2=2=2=2=2=2=22=2=2=2 === == Zmzzzs= <?B4A> W)"<BLUE 4 SFACE}YWIRD" - "GESICHERT !" -B45> 
6020 : <215> 6488 NE=LEFTE(KNE (ZW) „12) <189% 
4030 GOSUB 6329: IF KN$="E"OR AK=Q THEN RETURN  <®B11> 6690 CLOSE 3:0PEN 3,8,15,"S2 "+JF+N$ <Dbh> 
sBAQ IF ST=-128 OR R=21 THEN RETURN <B37> 6708 CLOSE 3:0PEN 5,8,5,J$+N$+",5,W" <142> 
s8508 N=Z:FU=5:PRINT CHR£(147}:60SUB 4990 <243> 87/10 : PRINT#3,D#(9,0) :<178> 
&0&QB IF Z=B: THEN PRINT=:PRINT TAB (19) " ZRED}"DS(Z 6728 : FOR Y=1 TO Z <x879> 
‚„2):FOR I=® TO 29099: NEXT: RETURN <1905> 6730 : FOR I=2 TO 2 <032> 
6270 FOR I=Q2 TO 2 <979> 6740 : FRINT#3,D#(Y,I) <B38> 
#080 ::FRINT TAB (8) "{RVSON,RED}"I+1" {RVOFF „BROW 6758 : NEXT I 21255 
N,2SPACE}Y"FB&(I) <B47> 67628 : NEXT Y 8 Ep 69% 
62728 NEXT I:PRINT:SZ=B <B19> 6778 CLOSE 3 <B95> 
6108 FRINT TAB(4)"XBLUEFWONACH SOLL SORTIERT WE 6788 FRINT:AV=B:5%=2 <11B> 
RDEN ?" <997> 6798 PRINT" BUCHUNGSDATEI {SPACE ,„RED}"KN$& (ZW) " {BL 
6118 PRINT TAB(4) "GEBEN SIE BITTE DIE NUMMER AN VE ,SPACE}IST {2SPACE}GESICHERT !":PRINT <B03> 
ImsPRINT <181> 6808 PRINT:PRINT"WEITER MIT{SPACE ,RED}TASTE {BLU 
6128 PRINT TAB(4) "ZURUECK ZUM MENUE -->{SPACE,R E,SFACE}!" <241> 
ED}RETURN {BLUE „SPACE>F !" <B79> 6818 WAIT 198,1:POKE 198,8 <B29; 


Listing 1. Das Haushaltsbuch (Fortsetzung) 


Ausgabe 7/Juli 1985 Er: IE oßılne.«e 
= Je e.net 


Anwendung des Monats | (64 


6820 
6838 
6848 
6858 
6868 
6878 
&B88 
6898 
6700 
6718 


6920 
69380 


69748 


6758 


69768 
6978 
69780 
6978 
7288 
7818 
7020 
7038 
7848 
7858 
7248 
7978 
7/8808 
7070 
7ı00 
7118 
7128 
7138 
7148 
7158 


7168 
7178 


7188 
7198 


7288 
7218 


7228 
7238 


7240 
72580 
7268 
7270 
7280 
72978 
738080 


75318 
7328 
7338 
75348 
7358 
7368 
75780 
7388 
7390 


7480 
7418 


7428 
7438 
7448 


7458 
74868 


RETURN 
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GOSUB 6380: IF KN$="E"OR Ak=Q THEN RETURN 
IF ST=-128 OR R=21 THEN RETURN 

FRINT CHR$(147):FU=4:G60SUB 4999 

IF Z=@ THEN PRINT:PRINT TAB(9)"{RED}"D$(Z, 
B):FOR I=® TO 2BRR: NEXT:RETURN 

227=8: ZS=1@: AV=Q: PRINT 

PRINT" £BLUE}WENN SIE GEZIELT BUCHUNGPOSITI 
ONEN ODER MONATE AENDERN WOLLEN,„";5 

FRINT" GEBEN SIE BITTE" ," {SPACE,RED,RVSON} 
E {BLUE „RVOFF „2SPACEFEIN. " 

PRINT:PRINT" {RED}RETURN{LIG. BLUE,SPACE}LIS 
TET DIE DATEI VOLLSTAENDIG{11SPACEIAUF !" 
GET Es: IF E$<>"E"AND E${>CHR$(13)G0OTO 6940 
IF E$="E"THEN GOSUB 5199:60T0 7948 


REM 
REM 
FRINT CHR# (147); :60SUB 49978 

GOSUB 7788 

FOR Y=1 TO Z 

: GOSUB 7159 

NEXT Y 

PRINT: PRINT" {BLUE3DATEIENDE ERREICHT !" 
IF E#=CHRF(13)THEN 7288 

IF ZZ<>B AND E#="E"THEN E$="":G60T0 7288 
:::FOR I=1 TO 2890: NEXT 

RETURN 


== 
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REM =*= AUSGABE AUF BILDSCHIR 
REM ===-—- --——-— ----- - -- ------ 

GOSUB 7788:REM BEI EINZEL-SELEKT. 

IF Y<11 AND E$<>"E"THEN PRINT SPC (S-LEN (ST 
R&(Y)))" {RED}Y"Y" {BROWNF"DE(Y,„B)" {BLUE}"5;:G 
0TDO 7178 

FRINT SPC (4A4-LEN (STR&(Y)))" ZRED}"Y" {BROWN}" 
D£(Y,@) "<BLUE}" 5 


25 

IF LEN(D$(Y,2))=5 GOTO 7218 

PRINT TAB(31);MID$(D$(Y,2) ,3,2)". "LEFT$(D$ 
(Y,2) ,2)"."RIGHT$(D$(Y,2) ,2) 

G0TO 7220 

PRINT TAB(31);MID$(D$(Y,2),2,2)". 
$(Y,2) ,1)". "RIGHTS (D$(Y,2),2) 
Z2=77+1 

:IF ZZ=ZS AND ZZ{Z THEN ZS=ZS+18:60SUB 728 
ni) = 

RETURN 


"LEFT$(D 


REM =*= AENDERUNGSABFRAGE =*= 


PRINT: PRINT" {RED}AENDERUNGEN (J/N) 7" 

: GET X#:IF X$<>"J"AND XF<>"N" THEN 7290 

: IF X£="N"AND Y<Z THEN FRINT CHR#(147):60 
SUB 4979:60SUB 7788:RETURN 

: IF X£="N"AND Y>=Z AND AV=1 THEN GOSUB 685 
9U:RETURN:REM AEND.SICHERN 

» IF X£="N"AND Y>=Z AND AV=B THEN RETURN:=R 
EM KEINE AENDERUNG-->MENUE 

:PRINT CHR#(145)" {39SPACE}Y"=REM 39 X LEERT 


REM 
REM 
C=17:5=9:60SUB 8530 

PRINT" {LIG.BLUE}’GEBEN SIE BITTE DIE ZU. AEN 
DERNDE POSI-{2SPACE}TION EIN (ZEILE, SPALT 
EIGEN 

: INPUT A,B:B=B-1:IF B<{>Q AND B<>2 GOTO 737 
2 


=+= AENDERUNG =*= 


zz == =mmm m zz zzzzmzcomumomm 
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IF A<1 OR A>Y 60T0 7378 

IF Y-1=Z AND A>Y-1 OR B>2 OR B<B@ THEN C= 
7:5=9:60SUB 830: 60T0 7388 

IF -B<>2 G0TO 7478 

IF LEN(D$(A,2))=5 G0TO 74548 

PRINT TAB(2) 35MID$(D£(A,2) ,„3,2)". "LEFT&(D 
(A,2) ,2)". "RIGHTS (D$ (A,2) ,2) 
: 60TD 7480 

: PRINT TAB(2);3MID$(D$(A,2) ,2,2)". 
D$(A,2) ,1)". "RIGHTS (D$ (A,2) ,2) 
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"LEFTE( 


<076> 
sB02> 
<B15> 
<251> 
<033> 
<B42> 
0976? 
«1227 
<1797> 


<158> 
<057> 


<141> 


<198> 


x838> 
<198> 
<B25? 
<153> 
<841> 
<115> 
<182> 
<2534> 
«B76> 
847? 
<128> 
x120> 
<B83> 
<131> 
<974> 
<191> 
<027> 
<077> 
<255> 
<229> 


-1866> 


<122> 


_ n 2 2, 
FRINT TAB(3Q-LEN (DE (Y,1)));5DE(Y,1) “rANgRem on Dat. >; 


<115> 


xB49> 
<112> 


<087>? 
<B&87> 


“2497 
<2427 
168? 
<B35> 
<188> 
2217? 
-198> 


<B4B> 


<B48> 
<B657> 


<254> 
<B16> 
<1497> 


<236> 
<205 > 


<254> 


7478 
7480 


7490 
7508 
7518 


7522 
7538 


7548 
7558 
7568 
7578 
7588 
7598 
7888 
7618 
7628 
7638 
7648 
76858 
7680 
7678 
7680 
768978 
7700 
7718 
77208 
7728 
7748 
7758 
7788 
77938 
7508 
7818 
7828 
7838 
7548 
7858 
7888 
7878 
7888 
7898 
79708 
79718 
7928 
79338 
79740 
7745 
7758 
797868 
7978 
7788 
79978 
eu la] 
82102 
8930 
8942 


= 1 el 


au 


Listing 1. Das Haushaltsbuch (Schluß) 
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IF B<>2 THEN PRINT" {BROWN ,„2SPACE}";DE£(A,B) <126> 
FRINT:PRINT"BITTE AENDERN SIE !{28SPACE?"”: 
Av=1 <B48> 
[C=-29:5=-B:6G0SUB 838 <1357> 
s <163> 
INPUT D$(A,B} PRINT" {2SPACE,RED>"DE(A,BI=: I 
F LEN(D£(A,B))>28 THEN DF(A,BI=SLEFTF(DE (A, 
B) ‚20) <031> 
IF B<{>2 GOTO 7599:REM DATUM PRUEFEN <151> 
IF MID£(DE(A,2),3,1)="."AND MIDE(DF(A,2) ,ö 
‚„1)="."G0TD 7578 <198> 
IF MID£(D$(A,2) ,2,1)="."AND MID£(DE(A,2) ,4 
„i)="."THEN GOSUB 7719:6G0T0 7598 <Q12> 
IF MID$(D£(A,2},2,1)="."AND MIDFE(DE(A,Z),S 
‚1)="."THEN GOSUB 7728:60T0 7578 xB24> 
IF MID£(D£(A,2) ,53,1)="."AND MIDE (DE (A,2),S 
‚„‚1)="."THEN GOSUB 77380:60T0 75970 <D36> 
D$ (A,2)=MID$ (D$(A,2) ,„A,2)+LEFT$(D$(A,2) „2) 
+RIGHT$ (D$(A,2) ,2) <221> 
: <2453> 
PRINT" WEITERE AENDERUNGEN (J/ND 7" <B56> 
: GET X$:IF X#<>"J"AND XF<>"N"THEN 76808 <236> 
::IF X$="N"AND Y<Z THEN PRINT CHR#£(147):60 
SUB 4998:G05SUB 778B:RETURN <161> 
:IF X$="N"AND Y>=Z AND AV=1 THEN GOSUB 657 
B:RETURN:REM AEND. SICHERN <Bd3> 
C=-19:5=1:605UB 838 «028> 
PRINT" {BLUE ,SSFACE}" <241> 
PRINT" {39SPACE}":REM 39 X LEERTASTE <2189> 
PRINT" {39SPACE}?" <230> 
C=17:5=-9:605UB 838 <BdA5> 
GOTO 7388 <121> 
: : <298> 
REM =#+= DATUM AUFBEREITEN MMTTJJ #* <B1Q> 
DE (A,2)=MIDE (D$ (A,2) „3,1)+"B"+LEFTE(DE(A,2 
) „L)+RIGHTF (DE (A,2) „2) :RETURN <B77> 
D£E(A,2)=MID#(D$(A,2) ,„3,2) +"Q@"+LEFTF(DF(A,2 
},1)+RIGHTE (D#(A,2) „2) «RETURN <B88> 
DE(A,2)=MIDE£(DE(A,2) „A,1)+LEFTFCDF(A,2) „2) 
+RIGHT£(D$(A,2) „2) :RETURN <B59> 
2 <148> 
REM =*= SPALTEN-BESCHRIFTUNG =*= x <B25> 
DEM ===2=2=2=2=2=2=2=2=222222222222=2=2= “108B> 
: <178> 
PRINT TAB (5) "{RED}1"; TAB (26) "2"; TAB (33) "3" 
: PRINT: RETURN <B217> 
2 <19B>. 
an <975> 
REM ** DATAS FUER INPUT-MODIFIKAT. <185> 
REM z2222 22222 222222222 mem <995> 
FOR I=B28 TO 722 <B19> 
READ X:POKE I1,X:5=5+X:NEXT I «2129 
DATA 169,71,168,3,141,8,3,140,9,3,96,32 <215> 
DATA 115,0,201,133,240,6,32,121,0,76,231,1 
67 «192? 
DATA 32,115,0,2@1,172,240,6,32,191,171,76, 
174 <B1B> 
DATA 167,32,155,183,32,30,225,32,253,174,3 
2,158 <134> 
DATA 183,138,72,32,253,174,32,139,176,133, 
73,132 <202> 
DATA 74,32,163,182,184,32,117,1802,160,2,18 
5,97 <105> 
DATA 0,145,73,136,16,248,200,32,18,225,145 
‚98 <B&6> 
DATA 299,1968,797,208,2468,532,204,255,76,174, 
167 <B95> 
IF S<>119894 THEN PRINT"FEHLER IN DATAS!!": 
END <149> 
SYS 828: RETURN <B43> 
REM ========2=2=222222 == == Z21> 
REM * SWAP — FUNKTION SIMULIEREN * <2277? 
REMZZSE=ZEZn Sc ooooooozzesgsummmmmmmnn <r3B> 
REM SYNTAX:SYS71S(STRING1 ,„STRING2) <827> 
REMIzzz22 2222 =-=- => 2oozzgzzzmm messen <RRR > 
DATA 32,250,174,32,158,173,32,143,173,165, 
180,133,247,165,101,133 <096> 
DATA 248,32,253,174,32,158,173,32,143,173, 
160,0,177,247,133,249 <Q30> 
DATA 177,190,145,247,165,249,145,129,208,1 
92,3,208,239,32,247,174,96 <a31> 
SA=715:SE=SA+48:FOR I=SA TO SE:READ X:POKE 
1,X:C5=C5+X:NEXT <161> 
IF CS<>7314 THEN FRINT"FEHLER IN DATA’S":E 
ND <250> 
RETURN <Q31> 
Ausgabe Zi4hulinl985de 
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HYPRA-ASS — Ein Assembler 
der Spitzenklasse 











Machen Sie es wie die Profis. Schreiben Sie Programme in Maschinen- 
sprache. Dieser leistungsstarke Makro-Assembler macht es möglich. 


HYPRA-ASS ist ein rein in Maschinenesprache geschriebe- 
ner Drei-Pass-Makroassembler mit integriertem Editor für den 
C 64 mit Floppy 1541. Er wird mit LOAD "HYPRA-ASS7,8 gela- 
den und durch RUN gestartet. Nach dem Start meldet sich 
HYPRA-ASS mit »break in O« und »ready«. Alle Basic-Befehle 
sind nach dem Start noch zu verwenden, bis auf die Befehle 
LET und FOR, die Variable anlegen. Der Befehl RUN dient jetzt 
zum Starten der Assemblierung. 

Der Quelltext 

Der Quelltext wird vom HYPRA-ASS-Editor in Basic-Pro- 
grammzeilen abgelegt. Soweit wie möglich werden unnötige 
Blanks dabei eleminiert. Für die einzelnen Quelltextzeilen gel- 
ten die folgenden Vereinbarungen: 

1. Beider Eingabe einer Zeile wird hinter der Zeilennummer ein 
Minuszeichen eingegeben. 
2. Jede Zeile enthält höchstens einen Assemblerbefehl. 

3. Vor einem Assemblerbefehl darf in derselben Zeile höchstens ein 

Label stehen. 
Label beginnen direkt hinter dem Minuszeichen. 
Vor jedem Assemblerbefehl steht mindestens ein Blank. 
Label und Assemblerbefehl werden durch mindestens ein Blank 
voneinander getrennt. 
Ein Label darf nicht allein in einer Zeile stehen. 
Kommentar wird durch ein Semikolon vom Rest der Zeile 
getrennt. 

9. Reine Kommentarzeilen müssen als erstes Zeichen hinter dem 

Minuszeichen ein Semikolon haben. 

10. Pseudo-Ops (.ba, .eq...) können direkt hinter dem Minuszeichen 


Hg: R 


ON 


beginnen. 
Beispiele: 
100 -ba$C000 
110 -initialisierung 
120  -; reine Kommentarzeile 
13077 Ida $14; Kommentar hinter einem Befehl 
140 -marke Idx $15; mit Label davor 


Zur bequemeren Eingabe und Bearbeitung des Quelltextes _ 


stellt HYPRA-ASS im Editor insgesamt 25 Befehle zur Verfü- 
gung (Bild 1). 


Rechnungen im Quelltext 

HYPRA-ASS erlaubt die vier Grundrechenarten plus Poten- 
zierung, die logischen Operationen NOT, AND und OR, die 
Vergleiche »gleich«, »kleiner« und »größer«, sowie den Einsatz 
der Funktionen < (...) und > (...), die das Low- beziehungswei- 
se Highbyte eines Argumentes liefern. Die logischen Operato- 
ren und die Vergleiche werden wie folgt abgekürzt: 

In! = not lal=and !ol=or !=!= gleich 
I<! = kleiner als !>! = größer als 

Das Ergebnis eines Vergleiches ist —1, falls wahr, D falls 
nicht wahr: (1!=12)=0 (1!=11)=— 

Auch die NOT-Verknüpfung arbeitet wie in Basic: In!1 = —2. 
Das Argument in den Low-/Highbyte-Funktionen muß im Be- 
reich 0 < Argument < 65535 liegen. 

Außer Dezimalzahlen sind Hex-Zahlen erlaubt, die durch ein 
vorangestelltes Dollarzeichen kenntlich gemacht werden: 
$C000 = 49152 $10 = 16 $a = 10... 

Die Hexzahlen können auch in den Basic-Befehlen verwen- 
det werden. 
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HYPRA-ASS-Variable (Label) 

Der Wert einer HYPRA-ASS-Variablen kann zwischen O und 
$FFFF liegen. Variablennamen können beliebig lang sein, wo- 
bei das erste Zeichen des Variablennamens ein Buchstabe 
sein muß. Weitere Zeichen können Buchstaben, Ziffern oder 
das Hochkomma sein. Alle Zeichen des Namens sind signifi- 
kant. 

Im Zusammenhang mit der Verwendung von Makros muß 
zwischen globalen und lokalen Variablen unterschieden wer- 
den. Jede Variable erhält beim Anlegen eine sogenannte Ord- 


Automatische Zeilennumerierung. Hier mit der Start- 
nummer 100 und der Schrittweite 10. 

- Die automatische Zeilennumerierung wird ausge- 
schaltet, indem man direkt hinter dem ausgcs DENN 
Minuszeichen RETURN eingibt. 

/o Re-New eines Quelltextes, der mit NEW gelöscht 

wurde, falls der Text nicht anderweitig zerstört wurde. 

/d ; /d 100 ; /d —100 ; /d 100— ; /d 100 bis 200 

Löschen von Zeilen und Zeilenbereichen. Auch für 
das Löschen einzelner Zeilen sollte man den /d- 
Befehl verwenden, da man das Minuszeichen hinter 
der Zeilennummer doch immer wieder vergißt. 

/e ; /e 100 ; /e —100 ; /e 100— ; /e 100 bis 200 

Formatiertes Listen von Zeilen und Zeilenbereichen. 

Label, Assembler-Befehle werden gemäß den Tabula- 

toren übersichtlich untereinander ea. 

/t2,0 ; 3,10 

setzt die Tabulatoren TO, Ti, T2, T3 

TO = Tabulator für Assemblerbefehle 

Tt = Tabulator für den Kommentar bei der ats: 

ten Ausgabe 

T2 = Tabulator für die Anzahl der Blanks, die am An- 

fang einer Ausgabezeile ausgegeben werden 

T3= Tabulator für die Symboltabelle 

Ix Verlassen des Assemblers. Beim Verlassen des Pro- 

gramms wird ein Reset durchgeführt. 

Setzen eines Arbeitsbereichs (Page). Hier Bereich I 
von Zeile 100 bis 200, beide einschließlich. Bis zu 
30 solcher Arbeitsbereiche sind erlaubt. Die Parame- 
ter der Arbeitsbereiche werden im Kassettenpuffer 
abgelegt. 

Formatiertes Listen der Page. | 
Neu Durchnumerieren einer Page mit Startnummer 
und Schrittweite. 

Suchen einer Zeichenkette in einer Page. Dabei sind 
im String Fragezeichen als Joker erlaubt. Das Frage- 
zeichen ersetzt ein beliebiges Zeichen. Zu beachten 
ist jedoch, daß im Quelltext unnötige Blanks enifernt 
wurden, wie ein Vergleich mit den Befehlen /e und 
LIST zeigt. ee 

”string2” 

Ersetzen von Zeichenketten. String 2 darf nicht leer 
sein. Überall in der Page wird die Zeichenkette aus 
String 2 durch die aus String1 ersetzt. Auch beim Er- 
setzen ist in String 2 das Fragezeichen als Joker er- 
laubt. Da String 1 leer sein darf, können mit diesem 
Befehl auch Zeichenketten gelöscht werden. I 
Setzen des Quelltextstartes (Programmstartes). Nor- z 


/a 100,10 


t0,13 ; /t 1,24 ; 


/p 1,100,200 


/ziffer(n) 
/n 1100,10 


/f 1,'string” 


/r 1,’ string”, 


/u 9000 
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malerweise ist als Startwert die Adresse 7000 ı ein- a . a 





nungszahl, die tatsächlich angibt, im wievielten Makroaufruf 
das Anlegen stattfand. Befinde ich mich in gar keinem Makro, 
ist die Ordnungszahl entsprechend Null. 


Variable mit unterschiedlicher Ordnungszahl sind trotz glei- 
chen Namens nicht gleich. Man kann also davon sprechen, 
daß Variable gleicher Ordnungszahl lokal sind. 


Die Konstruktion mittels Ordnungszahlen dient dazu, Fehler 
durch doppelte Benutzung von Labeln bei mehrmaligem Aufruf 
von Makros zu verhindern, indem Makros bei jedem Aufruf so- 
zusagen einen komplett neuen Satz von Labeln erhalten. 

Andererseits sind aus einem Makro »herausgesehen« alle 
Variablen mit anderer Ordnungszahl als im Makro selbst »un- 
sichtbar«. Um aber bequem Makros in Makros aufrufen und 
bequem Label verwenden zu können, die inmehreren Makros 
benutzt werden sollen (etwa Betriebssystemroutinen), gibt es 
die globalen Variablen. 


Globale Variable sind, wie der Name schon verrät, im Gegen- 
satz zu den lokalen Variablen unabhängig von der Ordnungs- 
zahl überall definiert. 

Alle Makronamen sind per Definition global. 


gestellt. Durch Hochlegen des Startes kann man zum 
Beispiel einen Monitor in dem nun freien Bereich un- 
terbringen. 

/b Anzeige der aktuellen Speicherkonfiguration. Es wird 
angezeigt: 
a) der normale Quelltextstart 7000 als Merkhilfe 
b) der aktuelle Quelltextstart 
c) das Quelltextende 
d) die Anzahl der noch verbleibenden Bytes für den 


| Quelltext 
/”name” ; /s’name” ; /v’name” ; /m’name” gsser 
Kurzform der Befehle LOAD, SAVE, VERIFY und 
MERGE 
/g8 Die zugehörige Gerätenummer Kann mit diesem Be- 


fehl eingestellt werden. Voreingestellt ist das Gerät 
8. 
Zur Unterstützung des Umgangs mit dem Floppy-Laufwerk 1541 sind 


drei Befehle implementiert: 


fi — Lesen des Inhaltsverzeichnisses von Floppy ohne 
Verlust des geschriebenen Quelltextes 

/k — Lesen des Fehlerkanals 

/e — Übermittlung von Befehlen an die Floopy 


Diese drei Befehle entsprechen denen des DOS 5.1. 
Auch zur Farbgebung des Bildschirms sind zwei Befehle vorhan- 


den, die die Hintergrund- und die Rahmenfarbe setzen. 
 /chO 


— Setzen der Hintergrundfarbe 

/cr O — Setzen der Rahmenfarbe 

Nach erfolgter Assemblierung kann nun die erzeugte Sr 
. belle mit zwei Befehlen ausgegeben werden: 

/! — Ausgabe in unsortierter Form 


a RER = agahe sortiert 


Es Werden nur Label ausgegeben, die cr global 
oder von der Ordnung Null sind. | 

Beide Dumps können mit der CTRL-Taste verlangsamt 
und mit der STOP-Taste angehalten werden. 
 MitOPEN..., CMD... können die Dumps an andere Geräte 


gesendet werden. 


Als Ergänzung zum Basic-Befehl PRINT, der aufgrund 


= ‚der Torkenbildung nicht alle Labelnamen verarbeiten kann, 


kann der Befehl — verwendet werden. 

Basic-Funktionen wie PEEK sind nur über den PRINT- 
Befehl erreichbar. Die Funktionen < (...) und > (...) sind au- 
Berhalb des Quelltextes nur durch —- zu verwenden. 


_—_ Mitdem an kann genau wie im Quelltext gerechnet 
werden. 


Bild 1. Die Editorbefehle 
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Alle Variablen sind bei HYPRA-ASS redefinierbar gehalten, 
das heißt alle Variablen können durch eine Wertzuweisung je- 
derzeit verändert werden. 

Eine dopelte Benutzung von Labeln vor Assemblerbefehlen 
wird jedoch durch einen »Label twice«-Error (Bild 2) geahndet, 
da dies zu einem falschen Ergebnis der Assemblierung führen 
würde. 


Die Makros von HYPRA-ASS 

Makros sind meist kürzere Befehlsfolgen, die im Quelltext 
häufiger vorkommen, und deshalb unter einem Makro zusam- 
mengefaßt werden. Zu jedem Makro gehört ein Makroname, 
mit dem es aufgerufen werden kann. An jedes HYPRA-ASS- 
Makro können beliebig viele Parameter übergeben werden, 
deren aktueller Wert dann bei der Assemblierung im Makro 
eingesetzt wird. Makros können bei HYPRA-ASS an beliebiger 
Stelle im Quelltext definiert werden. Alle Makronamen sind 
global, alle Parameter und makrointernen Label sind lokal. Das 
heißt verschiedene Makros können durchaus Label bezie- 
hungsweise Parameter gleichen Namens verwenden. 

Ein Beispiel für ein einfaches Makro: 

Es wird immer wieder die Befehlsfolge benötigt, Akkumula- 
tor und X-Register mit dem Inhalt zweier aufeinanderfolgender 
Speicherzellen zu laden. Ein Makro dazu könnte folgenderma- 
Ben aussehen: 


100 -.ma Idax (adresse) 

110 Ida adresse 
120 Idx adresse+ 1 
130 -r 


Der .ma-Pseudobefehl wird gefolgt von einem Variablenna- 


nnmenmgessn Makronamen, und einer Parameterliste in runden 


Klammern, falls Parameter vorhanden sind. Hier istes ein Para- 
meter, die Adresse der Speicherzelle, die in den Akku soll. 
Sind mehrere Parameter vorhanden, werden sie durch Kom- 
mata getrennt. In die Parameter setzt der Assembler bei jedem 
Aufruf den aktuellen Wert, der im Aufruf steht. Rufe ich also 
Idax (2) auf, so entsteht bei der Assemblierung des Makro die 
Folge Ida 2, Idx3, entsprechend führt der Aufruf mit Idax (label) 
zu Ida label, Idx label+ 1. 


Die Parameterliste darf in der Definitionszeile eines Makro 
nur aus einer Folge von Variablennamen bestehen, während 
im Aufruf als aktuelle Parameter beliebige Ausdrücke erlaubt 
sind. Hinter der Definitionszeile mit dem .ma-Pseudo folgt 
dann der eigentliche Makroinhalt, das heißt das, was bei einem 
Aufruf des Makro assembliert werden soll. 

Natürlich sind hier nicht nur einfache Befehle wie im Beispiel 
gestattet. Genausogut können im Makro Verzweigungen und 
Sprünge ausgeführt werden, es kann bedingt assembliert wer- 
den, und weitere Makros können aufgerufen werden. Für die 
Schachtelung von Makros besteht keine Grenze außer der 
Fassungskapazität des Prozessorstacks. 


Als Beispiel — wird ein Makro mit zehn internen Labeln 100 

mal aufgerufen, ergibt sich schon für die dadurch erzeugten 
lokalen Label ein Platzbedarf von genau 7 000 Byte. 
Sollte irgendwann der Fall eintreten, daß Label und Quelltext 
zusammen nicht mehr ins RAM passen, erhalten Sie den »too 
many labels«-Error (Bild 2). Dies ist allerdings mehr ein theore- 
tischer Fall, denn auch bei der Assemblierung von HYPRA- 
ASS selbst wurden trotz extensiver Benutzung von Labels 
nicht einmal 500 gebraucht. Sie können aber davon ausge- 
hen, daß Ihnen immer mindestens Platz für 1 170 Label zur 
Verfügung steht — in den allermeisten Fällen sogar erheblich 
mehr. 

Selbstaufrufe von Makros sind auch nicht verboten. Inwie- 
weit eine solche Konstruktion überhaupt sinnvoll sein kann, 
bleibt jedem selbst zu prüfen. 
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Zurück zur Makrodefiniton: Jede Makrodefinition muß unbe- 
dingt mit dem Pseudo .rt (return) abgeschlossen sein. Trifft der 
Assembler bei der Abarbeitung eines Makro auf .rt, so heißt 
das für ihn, die Assemblierung hinter dem Aufruf fortzusetzen. 
Vor der .ma und .rt-Anweisung dürfen in derselben Zeile keine 
Label stehen. Die Makrodefinition selbst wird in Pass 1 und 
Pass 2 überlesen. Es zählen also nur die Makroaufrufe bei der 
Assemblierung. 

Der Aufruf eines Makro erfolgt durch den Pseudobefehl ..., 
gefolgt vom Makronamen und der aktuellen Parameterliste in 
runden Klammern. 

Wertzuweisung an Label 

Zwei Pseudobefehle stehen zur Verfügung, um Label einen 

Wert zuzuweisen: 


ea — weist einem Label einen Wert zu, ohne die Ordnungszahl 
des Labels dabei zu verändern. 
.gl — erklärt gleichzeitig das Label als global. 


Beide Pseudos werden der eigentlichen Wertzuweisung 
vorangestellt, so wie LET in Basic: 

100  -eq marke = $FFCO 

110  -gli label = $200 


Zusätzlich zu den Fehlermedlungen, die von Interpreter- 

_ routinen wie »illegal quantity« oder »syntax« stammen, gibt 
HYPRA-ASS folgende Meldungen aus: 

1. can’t number term — ein Ausdruck kann von HYPRA- 
ASS nicht berechnet werden. Möglicher Grund kann die fal- 
sche Abkürzung eines Operators sein. 

2. end of line expected — bei der Abarbeitung SIBSRGRIE \ 
wurde statt des Zeilenendes etwas anderes gefu | 
3. no mnemonic — ein Mnemonic kann nicht identifiziert 
werden. 

4. unknown pseudo — ein Pseudo-Op wurde falsch abge- 
kürzt. 

5. illegal register — ein Assemblerbefehl existiert in der 
gewählten Adressierungsart nicht mit dem gewählten Regi- 
ster. 

6. wrong adress — ein Assemblerbefehl existiert nicht in 

der gewählten Adressierungsart. 

7. illegal label — das erste Zeichen eines Labels war kein 
Buchstabe. 
8. unknown label — 

' belname entdeckt 

‚9. branch too far — eine Verzweigung führt über eine zu 
große Distanz. 

10. label declared twice — ein Labelname wurde zweimal 
benutzt. 

- 11. too many labels — Label und Quelltext passen zusam- 

men nicht mehr in den Speicher. 
12. no macro to close — die Anzahl der .ma-Anweisungen 
stimmt nicht mit der Anzahl der .rt-Anweisungen überein. 
13. parameter — im Makroaufruf stimmt die Parameterliste 
a mit ger al der Definition Den 


in Pass 2 wurde ein unbekannter La- 


| nzäweisen ist noch auf eine einfache Möglichkeit, 

. den »label twice-error« zu vermeiden: | 

Legt man eine Makrodefinition um einen beliebigen Block 
des Quelltextes, so sind alle Label in dem Block automa- 
tisch lokal. Auf diese Weise kann schon vorhandener Quell- 
text in neuen eingefügt werden, ohne daß man sich um 

doppelt verwendete ronanen kümmern DE | 


Bild 2 2. ‚Fehlermeldungen u von HYPRAASS 
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Bei der Wertzuweisung an Label ist immer der Bereich ein- 
zuhalten in dem ein Labelwert liegen darf (0 bis $FFFF). 


Einfügen von Tabellen und Text 
Drei Pseudo-Ops erleichtern das Einfügen von Tabellen und 
Text in den Quelltext. Dies sind: 


.by — erlaubt das Einfügen von Bytewerten (Werten zwischen O 
und $FF). Einzelne Bytewerte werden durch Kommata vonein- 
ander getrennt. Auch Strings der Länge 1 sind als Bytewerte 
erlaubt. Beispiel: 

100 -.by 0, "a, 123, "x", $fa 

wo -—- erlaubt das Einfügen von Adressen (Werten zwischen O 
und $FFFF). Mehrere Adressen werden durch Kommata von- 
einander getrennt. Die Adressen werden in der Folge 
Low/Highbyte in den Objektcode aufgenommen. Beispiel: 
100 -wo marke-1, label* 2-1 

„tx — erlaubt das Einfügen von Text in den Quelltext. Die einzel- 
nen Zeichen des Textes werden als ASCIl-Code im Objektco- 
de aufgenommen. Beispiel: 

100 -.tx "beispieltext” 


Überall im Quelltext, wo Bytewerte erwartet werden, etwa 
bei der unmittelbaren Adressierung, können Strings der Länge 
1 verwendet werden. Ein Befehl Ida#”a’ ist also erlaubt. 


Die bedingte Assemblierung 

Zur Unterstützung der bedingten Assemblierung bietet 
HYPRA-ASS ein IF/ELSE/ENDIF-Konstrukt und ein IF/THEN- 
Konstrukt. Außerdem steht ein unbedingter Sprungbefehl zur 
Verfügung. 

‚on — entspricht dem IF/THEN von Basic. Hinter .on folgt ein Aus- 
druck, ein Komma und ein zweiter Ausdruck. Ist der erste 
Ausdruck wahr, wird zu der Zeilennummer gesprungen, die 
der zweite Ausdruck angibt. Beispiel: 

100 -.on switch !=! 7, 400 
Es wird die Assemblierung in Zeile 400 fortgesetzt, wenn 
switch gleich 7 ist. 


.go — ergibt einen unbedingten Sprung zu der Zeile, die der Aus- 
druck hinter .go angibt. Beispiel: 
100 -.go 1000 

if — wird gefolgt von einem Ausdruck. Ist der Ausdruck wahr, 
wird die Assemblierung hinter der .if-Zeile fortgesetzt, bis 

‚el — gefunden wird. Daraufhin wird 

ei — gesucht und dahinter die Assemblierung fortgesetzt. 


Entsprechend erfolgt die Assemblierung von .elbis .ei, falls 
der Ausdruck hinter .if falsch ist. .el kann auch fehlen, es wird 
dann direkt hinter .ei fortgefahren. 

Auf eine Schachtelung von IF-Konstrukten wurde wegen 
des Zwecks der bedingten Assemblierung verzichtet. Bei- 


spiel: 
100 -ifswitch!=!6 
110 - Ida#0 
120  -el 
19027: Ida#2 
140 -ei 


Wenn switch gleich 6 ist, erhält man Ida#0, sonst wird 
Ida#2 erzeugt. Vor den Pseudos .if, .el und .ei dürfen keine 
Label in derselben Zeile stehen. 

Verkettung von Quelltexten 

Mit dem Pseudo .ap (append) kann ein weiterer Quelltext am 
Ende des Pass 2 automatisch nachgeladen werden, wobei der 
Programmzähler aus der vorangegangenen Assemblierung 
erhalten bleibt. 

Hinter .ap muß der Name des nachzuladenen Files in Anfüh- 
rungszeichen stehen. 

Eine Besonderheit von HYPRA-ASS bildet im Zusammen- 
hang mit verketteten Quelltexten der Pseudo-Opcode .co 
(common). 

Dieser Befehl bewirkt zunächst, daß alle Variablen/Label, die 
hinter der .co-Anweisung in einer Liste stehen, an den nachge- 
ladenen Teil übergeben werden. 
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Zweitens bleiben alle Quelltextzeilen bis zur common-Zeile 
beim Nachladen erhalten. Steht also etwa ein Makro vor der 
common-Zeile, wird auch das Makro übergeben. Zu beachten 
ist dabei: 


a) Es sollten keine Makroaufrufe im common-Bereich stehen, es 
sei denn innerhalb eines Makro. 
b) Die .ba-Anweisung, die die Startadresse des Objektcodes be- 


stimmt, sollte außerhalb des common-Bereiches liegen, damit 
nach dem Nachladen nicht wieder mit der gleichen Startadres- 
se assembliert wird. 

‘C) Wertzuweisungen an Label sollten ebenfalls außerhalb des 
common-Bereiches liegen, um Platz für den nachgeladenen 
Quelltext zu gewinnen. 


Direktes Senden des Objektcodes zur Floppy 

Der Pseudobefehl .ob (object), gefolgt vom Filenamen ‚p,w 
in Anführungszeichen, sendet den erzeugten Objektcode di- 
rekt zur Floppy. 

Geschlossen wird das so erzeugte Objektfile durch den 
Pseudobefehl .en. 

Sollte während der Assemblierung ein Fehler entdeckt wer- 
den und das Objektfile nicht schon durch die HYPRA-ASS- 
Fehlerroutine geschlossen worden sein, geben Sie bitte CLO- 
SE 14 ein. 


Ausgabe von formatierten Listings 
1) .1i 1,3,0 sendet ein formatiertes Listing des Quelltextes unter 
der logischen Filenummer 1 an das Gerät 3 mit der 
Sekundäradresse O (Bildschirm). Die Parameter hin- 
ter .li entsprechen denen des OPEN-Befehls. So ist 
es auch möglich, mit .li 2,8,2, "test,u,w” das Listing 
auf eine Userdatei zu leiten und so weiter. 


Der .l-Pseudobefehl muß der erste Befehl im Quelltext sein, 
wenn alle Zeilen gelistet werden sollen. Die Zeilen bis ein- 


schließlich .li werden nicht ausgegeben. Die gelisteten Zeilen” 


haben folgendes Format: 
c000 a0bOcO: 1000 -marke befehl ;kommentar 
Die Steuerung der Formatierung erfolgt mit dem Editorbe- 
fehl /t. Bei Zeilen, die Pseudobefehle enthalten, wie .eq... wer- 
den keine Adressen und Opcodes ausgegeben. 
2) .sy 1,3,0 sendet am Ende von Pass 2 die sortierte Symbolta- 
belle. Die Formatierung wird hier durch /t3,... gesteu- 
ert. Die Labelwerte werden hexadezimal ausgegeben. 


Eine Zeile der Symboltabelle sieht dann folgendermaßen 
aus: 
sprungziel = $ffd2 
Das Listing des Quelltextes erhält die Kopfzeile »HYPRA- 
ASS Assemblerlisting:«. Die Symboltabelle erhält die Kopfzeile 
»Symbols in alphabetical order«. 
3) ..dp 
t0,t1,12,13 setzt aus dem Quelltext heraus die Tabulatoren 
t0 = Tabulator für Assemblerbefehle 
t1 = Tabulator für den Kommentar bei der formatier- 
ten Ausgabe 
t2 = Tabulator für die Anzahl der Blanks, die am An- 
fang einer Ausgabezeile ausgegeben werden. 
t3 = Tabulator für die Symboltabelle 
4) .st beendet die Assemblierung 


Am Ende des zweiten Passes wird immer die Meldung »end 
of assembly« gefolgt von der Assemblierungsdauer in Minu- 
ten, Sekunden und Zehntelsekunden ausgegeben. Dahinter 
folgt die Zeile »base = $XXXX last byte at $YYYY«. 

Eine Zusammenfassung aller Pseudobefehle finden Sie in 
Bild 3. 


HYPRA-ASS-Editor 


Eines der Ziele bei der Entwicklung von HYPRA-ASS war es 
auch,die Editierung von Quelltexten möglichst bequem zu ma- 
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gibt die Startadresse der Assemblierung an. Bei 
anderen Assemblern heißt dieser Befehl auch 
orgoder *=. Ä | 

2) .eq label=wert weist einem Label einen Wert zu 

3) .gllabel=wert weist einem globalen Label einen Wert zu 

4) .by 1,2’ Einfügen von Byte-Werten in den Quelltext 

5) .wo 1234,label Einfügen von Adressen in der Folge low/high 


1) .ba$C000 


6) .tX'text” Einfügen von Text als ASCII-Werte 
7) .ap "file” Verketten von Quelltexten 
8) .ob "file,p,w” Senden des Objektcodes zur Floppy 
9) .en Schließen des Objektfiles 
10) .on aus- bedingter Sprung, wenn Ausdruck wahr 
druck,sprung 


unbedingter Sprung . 
Fortführung der Assemblierung bei ELSE, falls 
Ausdruck falsch. Ansonsten hinter .if bis zu EL- 
SE oder ENDIF. 

Alternative zu den Zeilen, die hinter .if stehen 
Ende der IF-Konstruktion 

Übergabe von Labeln und Quelltext an nachge- 
ladene Teile 


11)  .go sprung 
12) .if ausdruck 


13) el 
14) .ei 
15) .co vari,var2 


16) .ma makro Makrodefinitionszeile 
(pari,par2) 
+) Ende der Makrodefinition 
18) ...makro Makroaufruf 
(pari,par2) 


19) .ii Ifn, dn, ba sendet formatiertes Listing unter der File- 
Nummer Ifn zum Gerät dn mit der Sekundär- 
adresse ba Er 
sendet formatierte Symboltabelle unter der File- 
Nummer Ifn zum Gerät dn mit der Sekundär- 
adresse ba 

21)BSE beendet die Assemblierung 

22) AntO,ti,t2, setzt die Tabulatoren TO, T1, T2, T3Bausdem 
u Quelltext heraus ee —_ 


20) .sy Ifn, dn, ba 


Vor den Anweisungen 12, 13, 14, 16 und 17 dürfen in derselben Zeile 
keine Label stehen. 


Bild 3. Zusammenfassung aller Pseudobefehle 


$0000 
$033e 
$0400 
50800 
$1fd7 


Zeropage 
Bandpuffer als Zwischenspeicher 
Video-RAM 
 Hypra-ASS 
Raum für Quelltext und Label. Quelltext bis maximal 
$a000 
Basic-Interpreter — darunter von cO0O abwärts die 
Symboltabelle 
-$c000 frei! 
$d000 VO und so weiter 
$c000 Kernal 


Bild 4. Speicherbelegung von HYPRA-ASS 


$a000 





chen. Dazu wurden etliche Funktionen, die im normalen Basic- 
Editor stets gebraucht, aber nie vorhanden sind, in den 
HYPRA-ASS-Editor eingebaut. 

Als Grundlage des HYPRA-ASS-Editors blieb dabei der 
Basic-Editor erhalten. | 

Ein HYPRA-ASS-Quelltext wird also im Prinzip genauso ein- 
gegeben wie ein Basic-Programm. Allerdings muß hinter der 
Zeilennummer immer ein Minuszeichen eingegeben wer- 
den, das den Beginn der Quelltextzeile bildet. So eingegebe- 
ne Quelltextzeilen werden als ASCIl-Zeilen.in den Speicher 
übernommen. Alle überflüssigen Blanks werden entfernt. 

Jede eingegebene Zeile wird sofort nach der Übernahme 
formatiert ausgegeben, um die Übersichtlichkeit des Quelltex- 
tes zu gewährleisten. Eine Tabelle aller Editorbefehle finden 
Sie in Bild 1. 

(Gerd Möllmann/ah) 
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BBRB1 : 7& BB BDO 
B0809 : 38 35a 22 
ga8sii : 29 27 48 
2519.,7417 53793 
B821 : Ad 41 4b 
3829 : 45 4d 42 
B831 : 28 cQ ca 
09839. : cB cD cD 
DB41 : cDB cQD cDO 
28849 : cO cO cD 
2851 : 20 20 56 
8859 : 20 28 c7 
DB841l : 4 45 4c 
0889 : 20 20 208 
28717 2728 E322%7 
0877 : 55 2b 453 
2881 : 4c 44 58 
0889 : 5@ 41 44 
Q8971 : 45 45 45 
8899 : 4c 44 41 
BB8al : 54 4c 53 
8839 : 4f 4c 52 
B8b1 : 535 54 41 
2869 : 59 4a 4d 
B8c1 : 58 41 54 
B8c9 : 54 41 59 
Badi : 53 50 48 
8849 : 48 41 58 
B8el : 52 54 49 
0ge97 : 598 453 Ac 
Dafi1 : Ac 49 53 
B8+97 : AZ 4c 44 
a921 : 597 49 4e 
2709 : 4e 58 42 
g711 : 42 56 43 
8919 : 43 42 43 
0921 : 45 51 e4 
0929 : 25 c6 45 
2931 27905 25 46 
0939 : 28 Ba aa 
B9741 : 28 48 58 
08949 : 38 58 78 
2951 : ca e8 18 
289597 : da fB 40 
09641 : 7b 28 7b 
0969 : 7b a8 a8 
2971 : BB na BRD 
2979 : B2 83 83 
B9781 : 198 14 18 
0989 : 2f Se 41 
0991 : 41 4e 27 
0999 : 42 45 52 
B9al : BO de 4 
2939 : 4 4e 49 
B9b1 : 45 47 41 
09b9 : 47 55 54 
B9c1 ; 44 28 4 
29c9 : 45 28 45 
B9d1 : 54 45 44 
294979 : 47 20 41 
B9el : 55 88 42 
29e9 : 20 54 4f 
B97f1 : BB 55 4e 
D9f9 : 29 Ac 41 
Baßi : 4c Ac 45 
D2a09 : 41 42 45 
Baili : 28 Ad 41 
Da19 : 42 45 4c 
Ba?i1 : Ad 41 453 
Da29 »: 28 43 4c 
Ba51 : 4e 4b 4e 
Ba39 : 53 45 55 
Ba41 : 42 45 4c 
Ba49 : 41 52 45 
DBa5i : 453 45 BO 
Ba59 : 45 54 45 
Babi : 55 52 4e 
Da69 : ae 89 bf 
Ba71ı : f2 97 38 
8379 : 38 Ba 3f 
QBa8Bli : bd 55 Ba 
Ba89 : 85 23 a9 
Ba91 : cc ff a9 
Day? : aa ad 39 
Basi : a2 Fr cB 
QVaa9 : a? 22 
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Dabi 
DBabF 
Bacl 


Bac? 


Badi 
Dad? 
BDaei 
Bae? 
Dafi 
Baf? 
Obi 
8b297 
Bbii 
2b1? 
2b?i 
2b27 
Bb31 
263? 
2b41 


206497 


2bSi1 
2b5? 
Bböi 
20b57 
2b71 
20677 
2b81i 
2b8? 
2b91 
26977 
Bbai 
0ba? 
Obbi 
2bb? 
Bbci 
Bbc? 
Bbdi 
Bbd? 
bei 
2Obe? 
@bfi 
Bbf? 
Acdl 
2c9? 
Bcii 
3c1?7 
Bc21i 
2c27 
Bc351 
8c39 
8c41 
8c47 
BcSi 
28c5? 
Bc6i 
8c6597 
8c71 
2c77 
Bc81 
2c8? 
Bc?i1 
Bc7?7 
Bcal 
2ca? 
Bcbi 
Bcb? 
Bcci 
Bcc? 
Bcdi 
2cd? 
Bcei 
Bce? 
Bcti 
Oct? 
Bdol 
2427 
BOdil 
2di1? 
Bd2i 
2d27 
Dd>1 


2439 


Od4i 
2447 
BdS1 
2457 
Bdsi 
24597 


@4 


#3 bc 4c 8c 
gu DL 28 bi 
28 797 B38 18 
c? 2b fBß de 
c9 2d GO 1& 
E3227 8:17 
EI335C tB758 
Bc 2b A4c Bd 
4c da Bd 208 
dd Da 20 73 
03 Ac dQO ae 
Ba ?8 77 BB 
68 68 Ba c? 
73 08 aa 208 
dd e2 Ba a2 
f2 85 ca d® 
18 69 a9 a2 
bb ad 48 28 
ae 208 f7 b7 
fd 82 Ba ad 
dc Ob a9 9d 
23 Be 83 25 
8d Ba 95 Be 
a2 Bf Bd 38 
a9 17.90372ZC 
a? 20 8d d7 
az fa 9a 4Ac 
85 41 aQ BO 
88 da 12 c8 
28 dd 88 cB 
a8 fQ Be eb 
eß a8 dB de 
Da a6 41 bd 
a9 902 Ac fc 
Se 28 73 88 
c9 28 88 55 
3d d@ 14 28 
a 22 c9 29 
BB c?7 2c fO 
73 80 a5 41 
a7 89 7 Se 
58 28 ff ae 
Se 4c dd Bc 
597 28 ff ae 
38 14 a9 DB 
Bc a9 07 85 
fa 5b c9 Sb 
84 3e 20 2d 
c9 2c dB. 22 
28 73 88 8a 
e9 59 #98 85 
Ba ch Se a5 
Se c6 3e 4c 
85 Ze 4c 56 
Se 48 22 77 
Sb fB f& a? 
as Se eBD B& 
c? 34 bO 9& 
85 5b ed 97 
c3 15 98 35 
fd 1iB8 c9 30 
Bd e@d 97 dB 
42 &8 eB 38 
da 12 a9 83 
41 c97 15 d® 
5b 4c b5 Gc 
Ba a7 02 85 
Bd eQd Qa dd 
3b 18 &97 B8 
81 eQ 08 fQ 
e4 Bc a& 41 
1i ad Ze ed 
23 d®ß c97 e8 
e2 Bc ab 3e 
a5 41 c? 22 
85 42 a9 be 
7& 097 85 42 
65 3b 85 Ib 
c6 42 a5 fd 
a5 3c a6 Sd 
Sa e5 fc 975 
62 bB 81 ca 
dd 285 c?7 88 
25 A4c 7f Ba 
82 bB Bi ca 
dag ed c97 88 
Ba a9 90 95 


2471 
24797 
Bd8i 
248? 
Bd9i 
2497 
Bdal 
Bda? 
Bdbi 
Bdb? 
Bdci 
Bdc? 
Bddi 
Ddd? 
Bdeil 
Bde? 
Bdfi 
Bdt9Y 
Beßi 
De? 
Bell 
Bei? 
QDe2i 
De27 
Be31 
Be397 
Be41l 
Qe47 
BeSi 
De57 
Beöl 
Be57 
Be71 
De77 
BeBl 
De87 
Be?1 
Be9797 
Beal 
Bea? 
Qebil 
Deb? 
Becl 
Dec? 
Bedi 
Bed? 
Beel 
Dee? 
Defi 
Bef? 
BGBl 
ufa? 
Bfii 
Qf17 
ofz1 
227 
D+>31 
D+39 
D+41 
Bf497 
D+S1 
2Q3+57 
Bfsi 
BDf&s9 
of71 
Df77 
Brsl 


289 


of?1 
09797 
Bfal 
Bra9 
Bfbl 
Qfb? 
BOfci 
Bfc? 
Bfdi 
Dfg9? 
Bfel 
Bte9 
Dtfl 
ürf9g 


do 
13 
bB 
öl 
4c 
85 
af 
4c 
a2 
as 


a9 
Da 
bi 


85 
85 
c5 
c? 
2a 
22 


Sf 
47 
4c 
ab 
68 
De 
a9 
a9 


07 
85 


Sf 
493 
a, 
Qi 
85 
57=) 
De 
De 
Do 
4c 
1f 
7a 
de 
De 
58 
fd 
282 
Da 
af 
ed 
03 
ae 
15 
db 
22 
12 
az 
ao 
a7 


297 
2#+ 
Bd 
Bd 
Bd 
rl] 
c? 
208 
cd 


28 
ff 
7a 
a? 
297 
eb 
ad 
ae 


98 
27 
7/e 
61 
e? 
Bb 
az 
Do 
Bc 
49 
bi 


85 
d2 
45 
bf 
4a 
Bi 
ad 
ac 
cs 


bi 
45 
38 
A4c 
17 
ca 
a9 
az 
98 
ac 
809 
ad 


m 
os 


Aa 
67 
4a 
91 
14 
[=] 74] 
Ba 
fd 
bi 


57, 


ab 
de 
aB 
22 
ad 
85 
ad 
ae 
d7 


ff 
ec 
A4c 
af 
28 
ab 
Se 
Bd 


73 
Bd 


Qi 
32 
20 
SZ 
dd 
cd 
7f 
a9 
ad 
7b 
bf 
4c 
ac 
a? 
20 


Listing »HYPRA-ASS«. Bei 
der Eingabe bitte Seite 
77 beachten. 





Ob 28 

c7 40 ea 
bd a5 52 
98 e2 Id 
03 78 d2 
A4c 088 9d 
90 38 5a 
Bo 28 cc? 
84 De 976 
84 4a 7d 
bB 97 236 
[Far & Zu 174 
28 13 a8 
2Bd c9 14 
a9 356 81 
86 &8. 7b 
de 84 GBc 
2a he, Nr \ 
Bd dd e8B 
Bd dB e8 
45 dd da 
c8B bi 39 
49 di bf 
29773 799 
e9 07 fö6 
ef Bd bb 
20 9# cd 
fd 98 #2 
88 2c 47 
Bd a5 c4 
B6 dü e4 
b7 Be 42 
ad ac cf 
Bd Fi df 
c8 35 d7? 
Gl23r >30 
B5 98 Id 
a9 37 59 
Be a9 db 
20 9 77 
28 9 Sf 
Ba 009 78 
85 fe 988 
7a #8 ff 
c8 bi bb? 
7ae8 e2 
8c c2 7a 
18 60 73 
of a5 b5 
352 164 84 
Sa a9 a0 
Bd 8d 232 
Bd ad af 
aa 20 Ze 
d7 aa 13 
28 Se e8 
ff ad & 
7b e3 b8B 
24 9% Br 
if 15 ef 
agb 26 
75 297 Ff4 
ed 16 977 
Se 73 58 
09 85 c4 
ca Qe bB 
8d ad 88 
Sd ae 21 
20 73 aß 
73 Ba 16 
da 37 Ff2 
19 ee ad 
cO Qe 4a 
Da Ac 87 
41 28 aa 
Bo a5 7f 
91 47 Be 
De 28 37 
92 Bf 9 
ZBd 8d cö 
Q@1 8d bb 
b4# 187772 
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1921 
1909 
1811 
123197 
1021 
12029 
1251 
1339 
1941 
1347 
1051 
1357 
1961 
1957 
19371 
1977 
1881 
1389 
1991 
12977 
1Bal 
12039 
12b1 
128b7 
18c1 
19c9 
12d1 
1949 
i@ei 
10e7 
1@f#1i 
189 
1181 
1199 
371-173 
111% 
1121: 
1129 
1131 
1139 
1141 
1149; 
1151 
1159 
1161 
11659 
1171 
1179 
1181 
1189 


11912 


119797 
i11ai 
11a9 
i11bi 
11b7 
ı11c1 
Tic9 
1idi 
11d? 
l1lei 
ile? 
1ifi 
11797 
1201 
‚1299 
1211 
12197 
1221 
1229 
1251 
1239 
1241 
1249 
1251 
1259 
1261 
1269 
1271 
1279 
1281 
1289 
1291 
1299 
i2al 
1237 
12bi 
12b? 
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12c1 
1269 
12di 
1249 
12el 
12e9 
12#1 
127? 
1301 
15909 
1311 
1319 
1521 


‚1529 


1331 
1339 
1541 
1349 
1351 
15597 
1361 
1369 
1371 
1379 
1381 
1387 
1391 
15399 
13al 
15a7 
13b1 
135b7 
ISCH 
15c7 
13di1 
15d? 
13el 
13e9 
ı1Sr1 
139 
1401 
1409 
1411 
1419 
1421 
1427 
1451 
1439 
1441 
1449 
1451 
1457 
1461 
1469 
1471 
1477 
1481 
1487 
1491 
14997 
14al 
1437 
14b1i 
14b7 
14c1 
14c9 
14di 
14497 
i14ei 
14e7 
14#1 
1497 
1581 
1507 
LS11 
1519 
1521 
1529 
1551 
1539 
1541 
1549 
1551 
15597 
1561 
1567 
153271 
1577 


» 
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28 bc 


‚85 28 


ce ad 
E32 30 
85 7b 


8Sd ac 
19 a9 
ca d® 
c?7 3b 
77 88 
DB 4c 
Bd 72 
a9 c8 
98 Bi 
27 4c 
9B #7 
fc Bd 
73 88 
Da 28 
ae 74 
ei a? 
05 a2 
Bf 28 
61 d® 
14 20 
8d 18 
28 73 
fd 85 
c8 c8 
73 908 
DD c? 
c9 4c 
4c Bd 
di 13 
7b Se 
Da 38 
fe d® 
22 86 
3b 91 
ScE.391 
= 91 


Eee 
=: d2 
28 d2 
4c 19 
13 28 
PZNDZ 
73 88 
14 c9 
Bi bi 
cCI9222 
as 3c 
üb 28 
fd ca 


72 89 
fc 68 
88 bi 
aß Bi 
84 70 
57 54 
4e Ad 
af 41 
46 45 
49 53 
ii 2a 
11 93 
117.7 
13 82 
13.47 
17 78 
d® 81 
BB cB 
88 84 
4 46 
42 4c 
dc 87 
dc 29 
Sd Gb 
dc 8d 
Ob dc 
a9 Bd 
Ba dc 
d2 ff 
097 dc 
4a 18 
297 Br 
a9 Ze 


Bd 68 
85 7a 
56 da 
18 a? 
Bd 4c 
Ba ab 
Do fB 
bi Bd 
B& 28 
2f a6 
37 28 
98 &5 
07 Be 
ONe7 
a5 fb 
71 89 
az 28 
BO 85 
2097 20 
as fe 
ff 4c 
Ba ad 
ae 28 
fe Bf 
4c 7a 
ad a5 
28 0897 
fb a8 
ef 28 
208 73 
47 d® 
a4 7b 
d2 15 
42413 
fa 24 
ads fc 
ad 88 
2d c8 
285 c8 
18 685 


dchee 


Od a5 
05 a5 
ff 4c 
Ba ad 
Sc 68 
27 28 
98 60 
c8 bi 
28 fb 
bZ2 2 
7b &c 
33.16 
dS 13 
85 fb 
49 85 
84 78 
8a ?i 
42 41 
4 42 
52 54 
47 4 
47 4c 
44 58 
4 11 
de ii 
zcEH3 
95 13 
bc 16 
a4 7b 
84 bc 


22 d® 


4e 44 
535 45 
BO ad 
dc ad 
dc a7 
dc Bd 
a9 BB 
28 57 
ie ab 
67 38 
d2 ff 
4a 4a 
d2 ff 
28 d2 
ad 88 


1581 
1587 
1591 
15373 
15al 
15a9 
15bi 
1567 
15c1 
15c7 
15di 
15d9 
iSel 
15e7 
15f1i 
1517 
1881 
16097 
1811 
1619 
1521 
1629 
1531 
1537 
1641 
1547 
1551 
16597 
1661 
1559 
15671 
1579 
1581 
1587 
1691 
16997 
i6al 
1537 
1öb1 
15b7 
16c1 
15c7 
16d1 
165d7 
idel 
ide? 
16f1i 
16f9 
1781 
1727 
1711 
17:19 
1721 
1729 
177551 
1739 
1741 
1749 
1751 
1759 
1761 
17697 
1771 
17797 
1781 
17897 
1791 
1299 
17al 
1729 
17b1i1 
17bF7 
17c1 
I7CH 
17di 
17d7 
17el 
17e9 
17#1i 
1749 
1881 
1807 
isii 
1817 


37 


28 d2 ff b4A 
55 45 28 b8 
28 4c 41 9e 
54 45 20 #4 
20 537.17. 726 
ie ab ad 68 
ad 78 87 38 
aß 15 208 23 
fb d@ O1 Bd 
1& Ba 20 &f 
48 57 50 14 
53 208 28 dß 
42 4c 45 ec 
49 4e 47 75 
fa 37 20 e6 
a5 b8 8d fi 
ba 2c a9 eB 
32 16 28 74 
28 d7 aa 3d 
aß 15 28 e7 
28 d7 aa 78 
17 4c 8d Bf 
eß 48 4a 27 
1& 58 297 088 
Sa 90 92 71 
ae 32 16 8d 
ec f& Be 089 
d2 ff e8 eö6 
37 16.25.93 
32 17 a6 43 
1& ca fd Ba 
i& ca fd aß 
16 Ac 908 29 
4d 17 208 ef 
d2,#f .4c 32 
ae c2 Qe 86 
32: 167207293 
28 d7 aa 5b 
15 3rBun 837 ,Cc7 
fd ca fd cc 
19 e2 a2 5f 
1& ca 18 #4 
16 4c 8d 5a 
BB DD OB ea 
Ad 42 4 74 
28 41 4c 94 
54 49 453 al 
44 45 52 53 
da 14 95 bb 
cd ff bQO b2 
c9 ff 28 82 
28 d7 aa a9 
aß 14 28 d4 
208 d7 aa 88 
id 208 d7 3e 
fd ca fd a4 
ff 4c f8 85 
28 28 d2 a4 
ff a2 BB &e 
2U.82 172.233 
32 164 28 508 
az Bd 208 28 
Ac:cc #8, 2:61 
Be 28 fd a8 
+5 Be 2 5 
Sd fa Be 75 
14 8d f7 la 
Bo 85 fd df 
Bc 308 42 453 
fB 2d ca 39 
84 7a 84 4 
+8 f3 c9 b7 
f@8 18 a2 bö6 
BB 798 2c da 
a7 4c le 69 
81 18 4c 53 
a9 29 85 83 
7 85 82 &e 
ib 28 d7 af 
ab a9 a6 55 
ua 02 99 cf 
Sb:#98 27° 73 
28 fo 05 fd 
e8 bd 98 d? 


Listing »HYPRA-ASS« (Fortsetzung) 





Ar fıl in 


ne.de 
e.net 


tB2U72 02,607 31 
1829 : 22 7818 
1831 2:99 tb 81 
1837 : fb Bl e8 
1841 : 4c 55 18 
1849 : bd 2a 82 
1851 : f2 Ac 308 
1859 : 99 fb 91 
1861 : 7a a5 22 
1859 : a2 a4 a9 
1871 : DO a9 289 
1879 : 27 da #6 
1881 : ad 3d 23 
1889 : bd a2 94 
1891 ı ‚202 7 
1999 2. 39. 3€E,853 
i8gal : B3S Bd 3c 
1839 : BI 22 402 
18b1 : 7b a2 88 
18b9 : 29 ed 17 
18c1 :s 18 e6 7a 
18c7 : a4 15 8d 
i8Sdi : Be 48 D853 
18497 = 94 17 ZB 
1gel : B7 C97 29 
18e9 : ZQ &b a9 
isfli : BO FB Ic 
18f97 : 73 BO 20 
1901 : 14 85 15 
19089 : 14 85 15 
1911- » £@ 135 c8 
1919-2 .357. CS 195 
1921 =: 92 bQO B3 
1929 =: 88 bi Sf 
1951 : 60 86 Sf 
1939 : db 18 35 
1941 : 86 la a5 
1949 : fQ D& ed 
1951. 28 13.36 
1959 2 24 86 25 
1961. :- 1a 90 di 
19689 : 5f a5 Ze 
1971 =: a5 19 55 
1979 .: 65 &8 85 
1981 : 91 19 e6 
1989 : e64 24 dB 
1991 : 38 e9 Bi 
1997 : BB 85 48 
19a1 : 208 335 a5 
1939 : 18 2B 2c 
17b1 : Bc 28 Ad 
19697 : 28 19 4c 
19c.1 ı 2896 57 
19c9 : 28 Ba ad 
19d1 ı 94 61 83 
19d? : fd ae 28 
i9ei : a6 fe ?d 
19e9 : DE 4c 74 
19fi z 14 bd 61 
199 : 28 1S a6 
1a01i : 85 14 bd 
13897 : 208 9e b7 
ilaill : e5 4c aa 
1ail? : fe 29 fd 
1la21 : 40 083 a5 
1a29F : 835 Se >3d 
1a31,3 19 ad 3e 
1a35? : 3Sd 95 9d 
1a41 : bO 1d ad 
1349 : ad Sc 983 
1351 : 83 8d Sc 
1359 : 93 20 28 
1a&i1 2: Sc 85 38 
1a649 : Id 7 835 
1a71 : ad 3d 83 
1a79 : a4 a9 D2 
1a81 : 2b Be Id 
1389 : ff 85 14 
1a91 : a5 Sf a6 
1a99 : A4c ch la 
1aal : 83 84 2c 
1aa9 : 4c 74 a4 
iabi : if 4c 9d 
1ab9 : 57 e2 ad 
iaci : ba ff a9 
1ac9 : Ba 22 b5 


ladı 
1ad? 
laei 
lae?9 
lafl 
1af9 
1b®1 
1b297 
1b11 
1b19 
1b21 
1b29 
1b31 
1b39 
1b41 
1b47 
1b51 
1657? 
1böi 
1b59 
1b71 
1b79 
1b81 
1b89 
1591 
1b99 
ibai 
1ba9 
1bbi 
1bb? 
ibci 
1bc? 
1bdi 
1bd? 
ibei 
ibe? 
ibf1 
ibf? 
1cB1 
1c97 
ici11 
1c17 
ic21 
1c29 
ic31 
1c237 
1ic4i 
1c497 
ee! 
1c59 
icöil 
1c697 
1c71 
1c79 
1c81 
1c87 
1c91 
1c99 
ical 
ica? 


icbi 


icbY 
icci 
cc, 
icdi 
1cd? 
icel 
ice? 
icfi 
icf9 
1do1i 
1489 
1di11i 
1d197 
1d21 
1d27 
1d31 
1439 
id41 
1d49 
1d51 
14597 
idsöi 
1d697 
id71 
1d79 


la 
7b 
20 
19 
afd 
85 
25 
bi 
di 
fo 
ba 
da 
da 
Ac 
aa 
aß 
85 
47 
22 
ab 
a9 
a? 
Sf 
35 
28 
ib 
De 
4c 
Sf 
cö 
bi 
22 
#5 
ff 
28 
[=] 
853 
a? 
14 


22 


ad 
9d 
a4 
085 
Ac 
ib 
85 
14 
18 
ab 
98 
4c 
85 
a7 
28 
b& 
91 
22 
c97 
bi 
+7 
ff 
22 
3a 
a? 
a9 
a2 
dS 
bY? 
aß 
fe 
a4 
e97 
28 
da 
4c 
ad 
22 
ag 
öf 
8 
1d 


2d 


1d81 73 88 c? 21 d@ 
1437 le 28 98 id 4c 
1d91 bf a9 f9 85 45 
1499 0 99 7d dO 34 
idal 77 28 2c aB a? 
1da9 aß B@ bi 45 c8 
idbi 56 ad 84 bi 45 
1db? bi 45 85 45 88 
idci 23 88 bi 45 85 
idc? 45 85 47 a9 37 
iddi d7 aa 208 57 17 
1ddY DBQ bi 22 28 d2 
idei c4 47 dd f5 e8 
ide? ec f7 Be 908 #7 
idfi a9 3d 28 d2 ff 
idf? a9 24 20 d2 ff 
leßi 37 16 a5 63 28 
1207 45 ab 46 38 eY 
leil ca ad 37 84 B1 
ile19 68 Ad 56 Ac 553 
ie2i 45 47 54 50 46 
1e29 4b 4B 21 4 42 
le3i 1a ia la 18 19 
le39 17 19, 1a c 1b 
ie4i ıid ı# 1 1 1 
1e49 d2 ci 37 14 a6 
leSi 

1e57 

leöl 4c 89 1a a2 
1e69 fd 86 ca dB f8 
le71i bd ?2f le 48 bd 
1e7? 62 a9 36 85 81 
le81 

1e87 le a5 22 fB Bb 
le91 la 85 2f 86 5 
le97 

leal 

lea? 

lebi b®D Bi ca 86 
1eb? D& 98 ce c5 ?f 
leci 92551 17.85 2 
lec? 

ledi 85 if c8 bi 
1ed7 

leei if fd 84 bD 
lee? 

lefi 

lef? as 1b a6 ic 4c 
if81 

1297 B& bi ib 91 
ifi1 = 

1f19 34 982 4c f7 
ıif21 

1727 ab e4 dS3 bD ff? 
if31 

1539 22,46 237187637 
ıif41 

1f497 28 a9 if a2 d8ß 
ifSi 28 3 ab 35 2c 
1597 cd bd 29 5f ab 
1f61 2d 28 cd bd 28 
1697 BB 38 e5 2d 85 
1f71 e5 Ze 85 42 28 
1677 66 ad e4 28 le 
1f81 a4 20 Za 14 a5 
1789 as3.19,.83 2c 28 
if91 74 a4 20 9b b7 
199 16 ed 84 bR i 
ifal 9 b7 a4 21 c® 
ifa? Sa 99 #4 Be 4c 
ifbi 48 b2 Ba 8d f6 
ifbY a4 a9 808 85 21 
ifci c9 52 fB B& c9 
1fc7 es 21 28 9b b7 
ifdi 97 28 da Ac 74 


p7 

0 
[A 
N 
0 
an 
8 
er 
Or 
co 
0 
{n 
8 
+ 
Or 
& 
u 

8 





Listing »HYPRA-ASS« (Schluß). 
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Seite 77 beachten 
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Basic-Start- 
Generator 


Maschinenroutinen laden wie Basic- 
Programme und mit RUN starten, 
bleibt nicht länger ein Wunschtraum. 
Dieses Programm macht es möglich. 


Wie war noch die Startadresse für den Monitor? Sie haben 
bestimmt auch schon öfter die Einsprungadresse eines Ma- 
schinenprogramms vergessen, wenn Sie viel mit Assembler- 
Programmen arbeiten. Abhilfe schafft diese kleine Routine, die 
Sie mit dem MSE eingeben müssen. 

Das Programm macht aus einem im Speicher befindlichen 
Maschinenprogramm ein Programm, das einen normalen 
Basic-Start besitzt. Esbrauchtlediglich noch auf den Datenträ- 
ger gespeichert zu werden — fertig! Das speichern geschieht 
mit SAVE”name”,8(1). Damit entfällt die leidige Frage nach dem 
SYS-Befehl, was bei einer großen Programmsammlung schon 
lästig sein kann. Das so präparierte Programm kann normal (mit 
»,8« oder »,1«) geladen und mit RUN gestartet werden. 

Ausgenommen sind Programme, die im Bereich von $0800 
bis $09af und unter dem Basic- und Kernal-ROM liegen, da 
hier entweder der Basic-Start-Generator oder von ihm verwen- 
dete Routinen liegen. 


Tips zur Bedienung 





1. Laden des zu bearbeitenden Maschinenprogrammsaem omıir 


2. NEW eingeben 
3. Laden des Basic-Start-Generators mit LOAD”’name”,8 
4. Starten mit RUN 
5. Eingabe von SYS 2089, [anfang],[ende + 1],[einsprung] 
[anfang]: Beginn des Maschinenprogramms im Speicher 
[ende]: Ende des Maschinenprogramms im Speicher 
[einsprung]: Einsprungadresse, also der SYS-Wert, mit dem 
normalerweise das Programm gestartet wurde. 

Alle Parameter müssen in dezimaler Schreibweise eingege- 
ben werden, wobei der korrekte Bereich (0 bis 65535) selbst 


überprüft werden muß. Es wird ein »ILLEGAL QUANTITY 


ERROR« ausgegeben, falls [anfang] > = [ende] ist. 
6. Speichern des erzeugten Programms mit SAVE "name, 


Funktion 

Nach der Eingabe und Umrechnung der Parameter in das 
16-Bit-Format wird das Quellprogramm direkt hinter den Start- 
Generator kopiert (ab $08af). Dem Quellprogramm ist nun 
sein späterer Programmkopf vorgelagert. Des weiteren wird 


programm : startgenerator 0801 D9bO 








nun ein Teil des Start-Generators nach $C000 kopiert, der die 
weitere Arbeit übernimmt. 

Jetzt werden der Programmkopf und das dahinter liegende 
Quellprogramm nach $0800, also dem Basic-Start, kopiert. 
Anschließend werden die Basic-Pointer (Anfang/Ende des 
Basic-Programms) und im Programmkopf die Adressen ge- 
setzt. Nach der Meldung »READY TO SAVE« kann das bearbei- 
tete Programm abgespeichert werden. 

Nun eine nähere Erläuterung zum Programmkopf: Im Basic- 
ROM gibt es eine Unterroutine, die Speicherinhalte verschie- 
ben kann und deren Einsprungpunkt bei $ASBF liegt. 

Diese Verschieberoutine macht sich der Basic-Start-Gene- 
rator im Programmkopf zunutze, so daß das Quellprogramm 
wieder in seinen Ursprungsbereich kopiert werden kann. Die 
Übergabe der Kopierparameter erfolgt in den Adressen: 
$5F/$60 — alter Blockanfang 
S5A/$5B — altes Blockende + 1 
$58/$59 — neues Blockende + 1 

Nach dem Start des mit einem Basic- Start versehenen Pro- 
gramms wird die Blockverschieberoutine aktiviert und das 
Programm in seinen Bereich kopiert und gestartet. 

Soll das Programm nach RUN nur an seinen ursprünglichen 
Start verschoben werden, müssen Sie als Einsprungadresse 
eine Adresse wählen, bei der ein RTS (return to subroutine) 
steht. Beispielsweise 64922, eine Adresse im Betriebssy- 


stem des C 64. RTS entspricht einem RETURN in Basic. Es 


bewirkt, daß das Programm zwar verschoben, aber nicht ge- 
startet wird. Haben Sie zum Beispiel den SMON mit dem Start- 
Generator behandelt, meldet sich der SMON nach RUN mit 
der Registeranzeige, wenn Sie als Einsprungadresse 49152 
el haben. Haben Sie 64922 angegeben, kommt die 
ADY-Meldung. Mit SYS49152 können Sie dann den SMON 

rien. (Hermann-Josef Rottkemper/hm) 
















0990 LDA #2C > Blockanfang ($082C) 












0992 a0 08 LDY #08 

0994 85 5f STA5F > Übergabeadresse 

0996 84 60 STY 60 

0998 29 ff LDA #7? > Blockende+ 1 
(wird gesetzt) 

099A a0 ff LDY #7? 

099C 85 5a STA 5A > Übergabeadresse 

099E 84 5b STY 5B 

O9AD a9 ff LDA #?? > neues Blockende+ 1 
(wird gesetzt) 

09A2 20 ff LDY #7? 

09A4 85 58 STA 58 > Übergabeadresse 

0O9A6 84 59 STY 59 


09A8 20 bf as 
OYAA | 


JSR ASBF > Sprung in Verschieberoutine 
JMP FFFF > Einsprungadresse 
(wird gesetzt) 


Assemblerlisting des Programmkopfes 


0941 : 
2949 : 
@951 : 
08959 : 
0961 : 
0969 : 
0971 : 
0979 : 
2981 : 
0989 : 
09971 : 
0999 : 
89a1 : 
0939 : 


Listing zum 
Basic-Start-Generator. 

Beachten Sie bitte die Eingabe- 
hinweise auf Seite 77. 
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REM-Killer 


Überflüssige REM-Anweisungen in 
Basic-Programmen lassen sich leicht 


entfernen. Dieses Programm rechnet 


aber zusätzlich alle Sprünge auf ge- 
löschte REM-Zeilen um. Und das in 
wenigen Sekunden. 


REM-Statements sind, vor allem für längere Basic-Program- 
me, unumgänglich, um im relativ unübersichtlichen »Basic- 
Dschungel den Überblick zu behalten. Spätestens dann, 
wenn an einem umfangreichen Programm nach einiger Zeit Än- 
derungen erforderlich sind, wird auch der erfahrene Program- 
mierer dankbar sein, wenn er seine Unterprogramme und un- 
durchsichtigen PEEKs, POKEs und SYS-Befehle mit Hilfe von 
REMs noch durchschauen kann. Kurz gesagt, auch in sauber 
strukturierten Programmen gehört eine klare Dokumentation 
einfach dazu. 


Das Problem mit den REMs 


Leider haben REM-Statements die unangenehme Eigen- 
schaft, Programme wesentlich zu verlängern und auch zu ver- 
langsamen. Im Gegensatz zu einem Befehl (zum Beispiel PO- 
KE), werden REMarks nicht in einem Byte abgespeichert, a 
dern nehmen durch buchstabenweise Abspeicherun 
ASCII-Codes eine Menge Platz weg. Am besten wäre d: 
Basic-Programme mit ausführlicher REM-Dokumentation zu 
entwickeln und auch so zu speichern. Aus diesen »Quellpro- 
grammen« können dann die REMs entfernt werden, um kürze- 
re und schnellere »Lauf«-Versionen zu erhalten. Sollten später 
einmal Änderungen erforderlich werden, nimmt man diese am 
»Quellprogramm« vor und generiert daraus wiederum das 
‚ »Laufprogramm«. ? 

Da es sehr umständlich ist, die REMs in Handarbeit zu ent- 
fernen, braucht man ein Programm, das einem diese Arbeit ab- 
nimmt. Wozu hat man schließlich einen Computer. Das Pro- 
gramm sollte sehr schnell und unkompliziert zu bedienen sein; 
es sollte ferner Sprünge auf Zeilen, die mit einem REM begin- 
nen (und daher vollständig gelöscht werden) korrigieren. Ge- 
nau das macht diese Maschinenroutine. 


Der REM-Korrektor 


Wenn der REM-Korrektor mittels MSE als Maschinenpro- 
gramm auf Kassette oder Diskette gespeichert ist, kann die- 
ses jederzeit mit LOAD’REM-KORREKTOR" 8,1 (,1,1) geladen 
werden. Auch dann, wenn sich bereits ein Basic-Programm im 
Speicher befindet. Der gefürchtete OUT OF MEMORY ER- 
ROR, der durch das Nachladen von Maschinenprogrammen 
und dem damit verbundenen »Verbiegen« der Basic-Zeiger 
auftritt, wird beim Starten des REM-Korrektors mit SYS 52000 
aufgehoben. Der REM-Korrektor liegt ab Adresse 52000 im 
Speicher, damit die Datasetten-Anwender nicht auf TURBO 
TAPE verzichten müssen. 

Befindet sich der REM-Korrektor einmal im Computer, kann 
er selbstverständlich immer wieder mit SYS 52000 aufgeru- 
fen werden. Danach werden alle REMs aus dem Basic-Pro- 
gramm entfernt. Steht die REM-Anweisung am Zeilenanfang, 
wird die ganze Zeile gelöscht. Steht sie am Zeilenende, wird 
nur alles nach dem REM gelöscht. Sprünge auf gelöschte 
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REM-Zeilen werden korrigiert, auch wenn die neuen Sprung- 
adressen aus mehr ASCII-Codes bestehen wie die ursprüngli- 
chen. GOTO 99 erfordert 3 Bytes in Basic. Wird die Zeile ge- 
löscht, und die nächste gültige Zeile ist 12300, werden für den 
geänderten Befehl GOTO 12300 6 Bytes erforderlich. Ferner 
setzt das Programm alle Basic-Zeiger in der Zeropage auf den 
aktuellen Wert. 

Bearbeitet werden alle Sprünge wie 

GOTO 


- GOSUB 


IF..THEN (Zeilennummer) 
IF...THEN GOTO (Zeilennummmer) 
IF...THEN GOSUB (Zeilennummer) 
IF...GOTO (Zeilennummer) 


"IF..GOSUB (Zeilennummer) 


ON X GOTO (Zeilennummer), (Zeilennummer),... 
ON X GOSUB (Zeilennummer), (Zeilennummer).... 

Einer Zeilennummer vorangehende Leerzeichen sind eben- 
falls erlaubt. Bei ON X GOTO oder ON X GOSUB muß jede Zei- 
lennummer, bis auf die letzte durch ein Komma abgetrennt 
sein. 

ON X GOTO 200, 300, 400, 500, 600 ist erlaubt. Nicht je- 
doch 
ON X GOTO 200, 300, 400 ‚ 500, 600. 

Während des Programmablaufs erscheinen zur Kontrolle 
der Korrekturen die Nummern der in die Sprungbefehle neu 
eingesetzten Zeilen auf dem Bildschirm. 

Anschließend kann mit dem Basic-Programm ganz normal 
weitergearbeitet werden. 





Tips zur Benutzung 


1. Der REM-Korrektor ist in der Lage, durch NEW versehent- 
lich gelöschte Basic-Programme zu regenerieren (RENEW- 
Funktion), wenn man vor dem Starten durch SYS 52000 den 
Befehl POKE 2050,1 eingibt (allerdings sind dann sämtliche 
REMSs »rause). 

2. Zeile O darf keine REM-Zeile sein (OREM...). Enthält Zeile _ 
O einen REM-Befehl, werden keine Sprungkorrekturen ausge- 
führt. 

Der REM-Korrektor benötigt für ein 20 KByte langes Basic- 
Programm etwa 1,5 Sekunden, wenn keine Sprungkorrektu- 
ren notwendig sind. Aber auch wenn zahlreiche Korrekturen 
durchgeführt werden müssen, bleibt die Ablaufzeit im Bereich 
von einigen Sekunden. 

Ist kein Basic-Programm im Speicher, stoppt der REM- 
Korrektor sofort wieder. Sind nur REM-Zeilen vorhanden, führt 
er einen RESET durch. Der REM-Korrektor bleibt jedoch funk- 
tionsfähig. 

Das Programm arbeitet aus Geschwindigkeitsgründen mit 
Hilfsspeicherbereichen in denen Hilfszeiger abgelegt sind. Da 
diese den RAM-Speicher unter dem ROM benutzen, wird kein 
Basic-Speicherplatz verbraucht. 

3. Die Arbeitsweise des REM-Korrektors 

Das Maschinenprogramm ist in drei Hauptteile gegliedert. Im 
ersten Teil wird das Basic-Programm durchsucht und für jede 
gültige Zeile, oder den gültigen Teil einer Zeile, die Anfangs- 
adresse (2 Bytes) und die Zahl der Bytes (1 Byte) unter dem 
ROM ab Adresse $AOOO abgelegt. 

Die Nummern der gelöschten Zeilen (2 Bytes) sowie die 
Nummer der jeweils nächsten gültigen Zeile (die nicht mit ei- 
nem REM beginnt), werden ab Adresse $FFFF, ebenfalls un- 
ter dem ROM, in absteigender Folge abgelegt. 

Anhand der Zeiger ab $AD0O werden die Zeilenteile der 
Basic-Bereiche neu zusammengesetzt und nach untern kom- 
primiert. Das heißt, daß mit den gültigen Zeilen oder Zeilentei- 
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programm : remkorrektor 


cb?28 
cb30 
cb38 
cb48 
cb48 
cb5® 
cb58 
cbösQB 
cbös8 
cb7B 
cb78 
cb88 
cb88 
cb?® 
cb?78 
cba® 
cba8 
cbb2 
cbb8 
cbc® 
cbc8 
cbd® 
cbd8 
cbeßd 
cbeB 
cbf® 
cbf8 
ccd8 
ccQB 
cc1® 
cc18 
cc2D 
cc28 
cc3Q 
cc38 
cc40Q 
cc48 
cc50 
c-c58 
ccö60Q 
cecö8B 


cb28 c#i2 


" as f8 


dad 853 Ac 28 cd 289 
en 7 
Sr: 


28 
f2 
397 
D& 
cd 
20 
cc 
8 
cd 
28 
fd 
GE 
a? 
Bd 
28 
a9? 
[=y 4] 
>57. 
68 
a9 
28 
84 3% 
aa dd 


28 66 
Sd 84 
cc 28 
22 dd 
Sd a5 
19 e8 
11 a5 
ds 4c 
58 68 
28 d® 
98 bf 
ce 84 
DB5 85 
85 49 
a9 ff 
290 fd 
*d cc 


Listing des 
REM-Korrektors. 
Beachten Sie bitte die Eingabe- 


cc72 


len das ursprüngliche Basic-Programm überschrieben wird. 
Da das neue Basic-Programm kürzer oder höchstens gleich 
lang ist wie das alte, kann diese Operation Zeile für Zeile im sel- 
ben Speicherbereich (Basic-Bereich ab 2048) stattfinden. 
Damit sind die REMs entfernt! 

Die Teile 1 und 2 sind sehr schnell, da der Basic-Speicher- 
bereich jeweils nur einmal durchlaufen werden muß. 

Im dritten Teil wird das Basic-Programm nach Sprungcodes 
durchsucht. Dabei werden Bytes, die zufällig eine Sprung- 
adresse darstellen, sich aber innerhalb von Anführungszei- 
chen befinden (Strings), natürlich ignoriert. 

Die gefundene Adresse, also die Folge von ASCIl-Codes, 


dd B& Ac ec cd 208 


hinweise auf Seite 77. 





wird in eine 2-Byte-Hexadezimalzahl umgewandelt und der 
Bereich von $FFFF abwärts durchsucht, ob diese Zeilennum- 
mer mit der Nummer einer gelöschten Zeile übereinstimmt. 
Trifft dies zu, wird die ebenfalls abgespeicherte Hexadezimal- 
zahl (Zeilennummer) der nächsten gültigen Zeile geholt und in 
ASCII-Codes umgerechnet. Ist die neue Zeilennummer, in ei- 
ner Folge von ASCII-Codes ausgedrückt, länger als die alte, 
wird das Basic-Programm um diesen Unterschied nach hinten 
verschoben und die Basic-Zeiger restauriert. Dann wird die 
Zeilennummer eingefügt und festgestellt, ob noch eine Zeilen- 
nummer folgt (ON... GOTO). Wenn nicht, wird nach weiteren 
Sprungcodes gesucht. (Dipl. Ing. Wilhelm Meierhofer/hm) 





Hier gibt’s Clubs 


Computer-User-Vereinigung Bruchsal 
e. V.(C.U.V.B) 

Torsten Zimmermann, 
Steinacker 12, 7520 Bruchsal, 
überregionaler Club, 
Clubzeitung, Software- 

und Hardware-ertrieb, 
Computertage, Basic-Kurse 
Computergemeinschaft 64 
Michael Fuhrmann, 

Eilveser Hauptstr. 34, 

3057 Neustadt 1, 
Programmaustausch, POKE's, 
Tricks, Verbindungen zwischen 
C 64-Freunden 

Outlaws 64 

Sudetenstr. 8, 

6090 Rüsselheim 7, 
Spielturniere, Clubtreffen, 
Clubzeitung, Tauschbörse 
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Software-Club-64 
Hannelore Bauerhenne, 
Danziger Str. 5, 

6272 Niedernhausen, 
Club-Mitteilungsdiskette 
zum Selbstkostenpreis 


LCC — Lübecker 

Commodore Club, 

Moltkestr, 14, 2400 Lübeck, 
Clubtreffen, 
Softwarebibliothek, _ 
Basic, Logo, evtl. DFU, 
Aufnahmeprüfung: 
eigenes Programm 


POKIS-User & Computerclub 
Gerhard Hammer, 

Postfach 2886, 

2000 Hamburg 20, 
Clubzeitung, Grundlagen- 
Kurse, Freizeitclub für 
Angehörige von Mitgliedern 


Sigi-Soft-Computerclub 

Siegmar Bröhl, 

Rosenharth 4, 

5207 Ruppichteroth |, 
Clubtreffen, Club-Zeitschnitt, 
Softwarebibliothek 
Software-Changer-Club 64 (SCC 64) 
Thomas Ross, 
Neukirchenerstr. 55, 

4150 Krefeld 11], 

Adventure programmieren, 
Ideenaustausch, Clubzeitung, 
Programmaustausch 
Falken-User-Gruppe München 

St. Bonifatiusstr. 3/IH, 

8000 München 90, 
wöchentlicher Treff, 
Programmierung von 
Strategiespielen, Kurse, 
Softwarebibliothek, 
OÖffentlichkeitsarbeit zu 
neuen Medien, Diskussionen 


C 64-Club 

Günther Schroth, Lindenstr. 9, 
7273 Ebhausen 3, 

Hardware-, Software- 

und Erfahrungsaustausch 

NO NAME-Commodore-64-Club 

Ralf Hottmeyer, 
Mudersbacherstr. 31, 

5000 Köln 91, 

Clubtreffen: monatlich, 

kein Clubbeitrag, Programm- 
und Informationsaustausch 

C 64-Club »New Line« 

Postfach 8007, 7910 Neu-Ulm 8, 
Softwaretausch, Public Domain 
Software, Programmieranlei- 
tungen, Programmıieraufträge 
annehmen und an Mitglieder 
vergeben 


In der nächsten Ausgabe 
geht's weiter mit den Clubs. 
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C 64 | Tips & Tricks 


Komfortable 
Ein-IAusgabe- 
routine 








Dieses frei verschiebbare Programm 
für den C 64 erlaubt die Eingabe von 
bis zu 255 Zeichen. Es sind nur Zei- 
chen erlaubt, die vorher definiert wur- 


den. 


Das Programm ist 261 Bytes lang und wird direkt in den 
Speicher geschrieben. Da es frei verschiebbar ist, verlangt der 
Lader zuerst die Eingabe der Startadresse und gibt dann die 
Einsprungadressen der beiden Routinen aus. 


Eingabe-Routine: 


Syntax: SYS(eingabe), (länge), (zeichen), Variable) 

(eingabe) entspricht der Startadresse der Routine; (länge) be- 
stimmt die maximale Anzahl der Zeichen und (zeichen) die Zei- 
chen selbst, die eingegeben werden dürfen. Mit (variable) 
kann die Variable selbst bestimmt werden, unter der die Einga- 
be abgespeichert wird. Ein alter Eintrag wird dabei überschrie- 
ben. Bevor die Eingabe beendet werden kann, muß minde- 
stens ein Zeichen eingegeben werden. Für (länge) und (zei- 
chen) können auch Variablen gesetzt werden. 


Ausgabe-Routine: 


Syntax: SYS(ausgabe), (zeile), (spalte), (druckliste) 


Diese Routine gleicht dem PRINT-Befehl, wobei jedoch auch 
der Startpunkt der Ausgabe mit (zeile) und (spalte) festgesetzt 


werden kann. 
Beispiele: 
SYS eingabe,12, "a 


SYS eingabe,C% ,a$,b$ 


bedefghijkImnoparstuvwxyz”, e1$ 
SYS eingabe,5, ”1234567890', z$ 


SYS ausgabe,0,5,’Hamader Juergen” 


SYS ausgabe,ze,sp,tab (5);a;s$,'- "; 


(Jürgen Hamader/ah) 


HAMADER JUERGEN #* 
BRNETSMUEHL 38 * 
A-4918 RIED I/I * 


REM * 

REM * Es 
REM * 

PRINT CHR#& (147) TAB (12) "EINGABE-AUSGAB 
E"CHRF (17) 

INPUT"STARTADRESSE ";5A 

FOR I= SA TO SA+r2482 

READ A:AA=sAA+A:FOKE I,A:NEXT 

IF Ak{> 39563 THEN FRINT"TCHECKSUM ER 
ROR"=END 

FRINT CHRF£{17)CHRE (173 "EINGABE: 
A" „LAENGE „TEXT „VARIABLE" 
FRINT CHR#£E (17) "AUSGABE: 

FALTE,ZEILE,TEXT" 

DATA 32,255, U a 
18,134 ,252,32,253,174,32 

DATA 158,1753,32,143,175,32,166, 182,20 
1,0,2088,3,768,72,178,133 

DATA 167,165.34,133,168,165,35,133,16 
95157507133,62,52, 293,174 

DATA 32,139,176,32,143,173,169,8,15353, 
179,133, 253,133,251,153,284 

DATA 169,96,135,254,185,1978,240,252,3 
2,1898,229,201,298,2498,51,221 

DATA 13,248,81,1609,3,2097,1688,240,7,28 
0,196,1687,288,247,240,228 

DATA Re a N en 
5339,238,170,238,251,1685, 251,197 

DATA 252,2808,209,198, 251, 185,252,133, 
178,169, 157 ‚32,210,255, 169, 2 

DATA 240, 194, 166,251, 240, 190, 198,178, 
166,178 „232,228, 252,240, 7,32 

DATA 210,255, 199,251,16,174,169,32,32 
‚210,255 ,169,157,32,210,255 
DATA 169,0,2498,160,1686,251, 

7,1,133, 204,105, 170, I71,2982 
DATA 240,9,167, 32,32, 210,255,169,8,24 
DO, 34103, 171 ‚32,2195255 


Sys"Ss 


SYS"SA+224" ,5 


Aa Ele 





230 DATA 1690,0,165,170,145,71,32,244,180, 


S4ER on of: h> 





2,72,138,168,1,145,71 


& DATA 200, 104,145.71,160,0,177,253,145 


1258 


1262 


1279 


‚51,208,196,170,2088,247,96 
DATA 32 253,174,32, 158,183,224,40,144 
3,78, 72,178,139,72,32 

DATA 253,174,32,1598,183,224,25,176,24 
1,104,168,24 "32,240 ,255 ,32 

DATA 253, 174,76, 164,170 


Listing »Ein-/Ausgaberoutine« 








Hinweise zum Abtippen unserer Listings 


Wenn Sie die 64’er schon 
öfter gelesen haben, sınd Ih- 
nen die Programme Check- 
summer und MSE sicher ein 
Begriff. Diese Programme 
erleichtern Ihnen die Arbeit 
beim Abtippen der Listings 
ganz erheblich. 


Checksummer und Basic-Listings 
Der Checksummer Ist »zu- 
ständig« für alle Basic-Pro- 
gramme. Er zeigt nach Ein- 
gabe einer Basic-Zeile eine 
Prüfsumme am Bildschirm 
an. Wenn diese Zahl mit der 
in Klammern »< >« stehen- 
den Zahl rechts von Jeder 
Basic-Zeile iin unseren Li- 
stings nicht| übereinstimmt, 
dürfte ein Tippfehler vorlie- 
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gen. Die Zahl mit den Klam- 
mern darf nicht mit eingege- 
ben werden. 

In allen Basic-Listings fin- 
den Sie Zeichen und Wörter 
in geschweiften Klammern. 
Diese stehen als Ersatz für 
Grafik- und Steuerzeichen 
und dienen der besseren 
Lesbarkeit. So bedeutet zum 
Beispiel [CLR}, daß die 
SHIFT und die CLEAR/ 
HOME-Taste, oder {13SPA- 
CE}, daß 13mal die Leertaste 
betätigt werden muß. 

In vielen Basic-Listings fin- 
den Sie unterstrichene und 
überstrichene Buchstaben. 
Unterstrichene Buchstaben 
bedeuten, daß Sıe die SHIFT- 
Taste und den entsprechen- 


den Buchstaben, überstri- 
chene Zeichen die Commo- 
dore-Taste und den Buchsta- 
ben drücken müssen. Auf 
dem Bildschirm erhalten Sie 
dann die entsprechenden 
Grafikzeichen. Sie können 
die Basıc-Listing auch ohne 
den Checksummer einge- 
ben. 


MSE für Assemblerprogramme 
Der MSE (Maschinenspra- 
che Editor) ist eine große Hil- 
fe bei der Eingabe von Ma- 
schinenprogrammen. Der 
MSE erspart ungefähr ein 
Drittel Tipparbeit und ge- 
stattet keine Fehleingaben. 
MSE-Listings sind erkenn- 
bar an den hexadezimalen 


Zahlenkolonnen. Als Notbe- 
helf können Sie diese Li- 
stings aber auch mit einem 
Maschinensprachemonitor 
eingeben. 

Diese Programme (Check- 
summer und MSE) wurdenin 
den 64’er Ausgaben 1/85 bis 
6/85 mit einer ausführlichen 
Erklärung abgedruckt. Sie 
befinden sich aber ebenfalls 
auf jeder Leserservice-Dis- 
kette. Gegen Einsendung ei- 
nes frankierten und an Sie 
selbst adressierten Briefum- 
schlags (Größe DIN C5 = 0,80 
Mark, DIN C4=110 Mark 
Porto) schicken wir Ihnen 
gerne beide Listings mit ei- 
ner ausführlichen Erklärung 
zu. EI 


EI, { ine.net 


e.de 








nz 
Interface für 
jeden Bedarf 


Will man einen Drucker mit Centro- 
nics-Eingang an den C 64 anschlie- 
Ben, kommt man um ein Interface 
nicht herum. Wir zeigen Ihnen mit die- 
ser Software-Schnittstelle die billigste 
Lösung für ein Interface. 


Zweifelsohne sind Software-Lösungen von Centronics- 
Schnittstellen für den C 64 (mit einfachem Kabel am User-Port) 
nichts unbekanntes. Bedauerlicherweise ist jedoch die Ver- 
träglichkeit mit käuflichen Programmen nicht immer gewährlei- 
stet. Viele Textverarbeitungsprogramme funktionieren damit 
nicht. Die Software für die Schnittstelle wird durch diese Pro- 
gramme leider meistens überschrieben. Dieses Problem läßt 
sich eigentlich nur durch das feste Einbinden der »Centronics- 
Software« in das Betriebssystem des C 64 lösen. Der User- 
Port des C 64 stellt dann eine vollwertige Centronics-Schnitt- 
stelle dar. Auf alle Besonderheiten des GC 64-Zeichensatzes 
konnte aber aus Platzgründen keine Rücksicht genommen 








Druckern zusammen, ohne irgendeine Funktion des C 64 zu 
beeinflussen. Da die Schnittstellen-Software aus den oben er- 
wähnten Gründen im Kernal-ROM selbst liegen muß, war zu- 
nächst das Platzproblem zu überwinden. Einerseits hat Com- 
modore fastden gesamten Raum für das Kernal benutzt, ande- 
rerseits ist der C 64 aber mit ausgesprochen platzaufwendi- 
gen Einschalt- und Systemmeldungen ausgestattet. Doch 
welcher C 64-Besitzer weiß nicht schon nach recht kurzer 
Zeit, welchen Namen sein Computer hat. Dementsprechend 
wurde die Einschaltmeldung drastisch verkürzt. Der C 64 mel- 
det von nun an mit 

* 664 CENTRON * 38911 BYTES RAM 


Weiterhin wurden die Meldungen bei Betrieb von Datasette 
und Floppy vereinfacht. Die neuen Meldungen sind in Tabelle 
2 zusammengefaßt. Als nächste Möglichkeit bieten sich die 
Initialisierungsroutinen des Betriebssystems an. Hier wird vom 
C 64 nach dem Einschalten untersucht, ob der C 64 in Europa 
oder in Amerika zum Einsatz kommt. Da die amerikanische Ini- 
tialisierung in Europa nicht gebraucht wird, konnten die ent- 
sprechenden Routinen einschließlich der NTSC-Zeitkonstan- 
ten für die RS232-Schnittstelle aus dem Betriebssystem ent- 
fernt werden. Damit war genug freier Platz im ROM für die 
Schnittstellen-Software geschaffen. 

Hohe Verträglichkeit einer Schnittstelle wird durch die richti- 
ge Einbindung der Änderungen in das Original-Betriebssy- 
stem erreicht. Ziel muß es dabei sein, die neuen Routinen so 
spät wie möglich in den normalen Ablauf der seriellen IEC- 
Busverbindungen einzubinden. Hier wurde folgender Weg 
eingeschlagen; 

Nach einem Sprung aus der LISTEN-Routine ($EDOC) wird 
in der neuen Routine beim Ansprechen der Geräteadresse 4 


werden. Reverse Zeichen, Cursor-Steuerzeichen unchSekunmu_u(@P#h| 4,4 oder OPEN 4,4,X) ein Flag für Centronics-Ausga- 


däradressen werden, bis auf die Sekundäradresse zur Um- 
schaltung zwischen Groß- und Kleinschrift, nicht erkannt. Da- 
für wird aber bei Verwendung der Sekundäradresse 7 nichtnur 


eine Groß-/Kleinschrift, sondern auch eine © 64/ASCII-Code- 


wandlung durchgeführt. 





Centronics hoch drei 





In dieser Bauanleitung werden drei Schnittstellen vorge- 
stellt. Zum einen ist das »C 64 Centron« eine Schnittstelle, bei 
der außer einer Verkürzung der Systemmeldungen nichts im 
Betriebssystem verloren geht (auch nicht die Kassettenrouti- 
nen). Die zweite Schnittstelle ist dem in Ausgabe 4/85 veröf- 
fentlichten Hypra-Perfekt angepaßt. Bei der dritten Schnittstel- 
le wurde auf größte Flexibilität geachtet. Es handelt sich dabei 
um ein frei verschiebbares Programm, das komfortabel zu be- 
dienen ist. Außer der dritten Version sind alle Schnittstellen nur 
als ROM-Version benutzbar. Das Kernal-ROM wird dazu durch 
ein neues ersetzt. Die dritte Version ist eine reine Software- 
Lösung. Das Anschlußkabel, welches das in Tabelle 1 darge- 
stellte Verdrahtungsschema haben muß, ist aber in allen drei 
Fällen gleich. 


Software-Schnittstelle im 
Betriebssystem integriert 





Das größte Hindernis für die Verträglichkeit mit fertigen Pro- 
grammen ergibt sich aus der Tatsache, daß der C 64 bereits 
eine Druckerschnittstelle eingebaut hat: den seriellen IEC- 
Bus. Da käufliche Programme in der Regel diesen Weg benut- 
zen, um einen Drucker anzusprechen, muß eine nachträgliche 
Lösung Abhilfe schaffen. 

C 64 Centron (Listing 1) arbeitet mit allen Centronics- 


18 35a 


be (Centflag) gesetzt. Der Drucker wird durch Senden einer 
»0« initialisiert. Bei anderen Geräteadressen wird ein Rück- 
sprung in die normale LISTEN-Routine durchgeführt. 

In der SECLISTEN-Routine ($EDB9) wird bei gesetztem 
Centflag überprüft, ob bei der File-Eröffnung die Sekundär- 
adresse 7 eingegeben wurde. Dementsprechend wird ein 
weiteres Flag (Secflag) gesetzt. Diese beiden Flags werden in 
der eigentlichen Ausgaberoutine, die in die IECOUT-Routine 
($ED4O0) eingebunden ist, nacheinander abgefragt. Bei nicht- 
gesetztem Centflag erfolgt ein Rücksprung in die normale 
IECOUT-Routine. Ist Centflag gesetzt, wird das Secflag abge- 
fragt und bei gesetztem Flag eine Codewandlung von C 64- 
Code in Standard-ASCIl vorgenommen. Nach Ausgabe des 
ASCII-Zeichens wird wie in der seriellen Ausgabe abgefragt, 
ob das ausgegebene Zeichen das letzte einer Zeichenkette 
war. Wenn ja, erfolgt ein Rücksprung in das Normalbetriebssy- 
stem. Nach Ausgabe des letzten Zeichens werden Centflag 
und Secflag gelöscht. Beim Schließen des Druckffiles 
(CLOSE4) wird »CARRIAGE RETURN« ausgegeben, um 
eventuell noch im Druckpuffer befindliche Zeichen auszu- 
drucken. Dies geschieht in der SECLISTEN-Routine. 

Eine besondere Einrichtung dieser Lösung ist eine Be- 
nutzerschnittstelle. Es ist nämlich möglich, vor der eigentli- 
chen Ausgabe eines Zeichens in eigene Routinen zu verzwei- 
gen. Und das sogar bei käuflicher Software. Wichtige Voraus- 
setzung dafür ist lediglich, daß ein RAM-Bereich frei bleibt und 
nie vom Programm beschrieben wird. Dies kann häufig der 
Kassettenpuffer ($033C-$03FB), weniger häufig der Bereich 
von $C000 bis$CFFF sein. Im freien RAM-Bereich muß eine 
Routine stehen, die indirekt angesprochen wird und nach Aus- 
führung in die Centronics-Software zurückspringt. So können 
zum Beispiel Steuerzeichen auch von Druckern exotischer 
Herkunft aus Steuersignalen für Standarddrucker (etwa von 
Commodore oder Epson) erzeugt werden. In Listing 2 ist eine 
Beispielroutine abgedruckt, die bei Übergabe eines Wertes 


Ausgabe 7/Juli 1985 


64er-online.de 
64er-online.net 





von 255 an den Drucker einen Text aus der Benutzerschnitt- 
stelle ausdruckt. 

Die Bedienung der Benutzerschnittstelle läuft nach folgen- 
dem Schema ab: Bei gesetztem Secflag (also bei Sekundär- 
adresse 7) wird ein Schlüsselbyte in Speicherstelle $DCOC 
mit dem Wert $DB verglichen. Ist dieser Wert dort nicht vor- 
handen, wird die Centronics-Ausgaberoutine mit Codewand- 
lung fortgesetzt. Wird der Wert $DB jedoch gefunden (weil er 
vorher hineingeschrieben worden ist), springt der C 64 über 
einen Zeiger in $0336/$0337 (LByte/HByte der. Startadres- 
se der eigenen Routine) ins selbstdefinierte Programm, führt 
die programmierten Funktionen aus und kehrt in die Ausgabe- 
routine zurück. 

Weitere Möglichkeiten, etwa umfangreiche Codewandlung 
über Tabellen etc., können dadurch selbst entwickelt werden. 

Die hier vorgestellte Schnittstelle arbeitet mit allen bisher 
getesteten Programmen zusammen, einschließlich Textomat, 
Textomat plus und MAE-Assembler. Leider ist es nicht mehr 
möglich, gleichzeitig bei Anschluß eines Druckers an den 
User-Port die RS232-Schnittstelle zu betreiben. Sämtliche 
RS232-Routinen sind jedoch unverändert vorhanden und 
funktionstüchtig. 

Der Basic-Lader kopiert das Kernal in den RAM-Bereich von 
$6000 bis $7FFF und verändert dort das Betriebssystem. 
Das C 64 CENTRON-Betriebssystem kann nun durch Menü- 
wahl entweder auf Diskette abgespeichert oder mit einem 
EPROM-Kopiergerät in ein 8-KByte-EPROM gebrannt wer- 
den. Das EPROM wird auf einer entsprechenden Adapterplati- 
ne oder auch auf einer Betriebssystem-Umschaltplatine in den 
Sockel U4, anstelle des normalen Kernal-ROM, eingesetzt. 


Hypra-Centronics 


Da bei der Programmierung des Hypra-Perfekt bereits auf 
die Kassettenroutinen verzichtet wurde, war die Platzsuche im 
Betriebssystem weniger aufwendig. Trotzdem mußte auch hier 
etwas getrickst werden. Die Schnittstelle fand keinen Platz 
mehr. Wer bereits im Besitz eines Hypra-Perfekt-Kernals ist, 
sollte Listing 3 eingeben und starten. Das neue Betriebssy- 
stem mit Centronics-Schnittstelle befindet sich dann wie ge- 
wohnt ab $6000 bis $8000 im Speicher. In den REM-Zeilen 
am Anfang des Listings ist angegeben, welche Änderungen 
vorgenommen werden müssen, um an Stelle des 
$6000-Bereichs den $8000-Bereich als Startadresse zu er- 
halten. Diese Änderungen können notwendig werden, wenn 
das EPROM-Programmiergerät nicht mit Programmen im 
$6000-Bereich arbeiten kann. 


Softwarelösung für jedermann 


Im Gegensatz zu den beiden bisher beschriebenen Versio- 
nen arbeitet die Schnittstelle aus Listing 4 im RAM-Speicher 
des C 64. Dafür bietet sie aber den Vorteil, völlig frei ver- 
schiebbar zu sein. Einige Bereiche, in denen die Schnittstelle 
keinen Platz findet, wurden von vorneherein ausgeschlossen. 
Eine Fehlbedienung ist somit fast unmöglich. Nach dem Star- 
ten des Programms meldet sich ein Menü, mittels dessen Sie 
den Speicherbereich, in dem die Schnittstelle arbeiten soll, 
eingeben können. Es ist dabei belanglos, ob Sie den Spei- 
cherbereich in dezimaler oder hexadezimaler Form (zum Bei- 
spiel $C000) bestimmen. Das Programm rechnet die Adres- 
sen um und informiert Sie anschließend darüber, mit welchem 
SYS-Befehl (der ja vom Speicherbereich abhängt) die Schnitt- 
stelle immer wieder neu initialisiert werden kann. 

Wir hoffen, Ihnen mit diesen drei Lösungen das Mittel an die 
Hand zu geben, mit dem Sie jeden Drucker mit Centronics- 
Schnittstelle an den C 64 anschließen können. Es sei noch- 
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mals darauf hingewiesen, daß Listing 1 und Listing 3, aus- 
schließlich für die Verwendung im Kernal-ROM vorgesehen 
sind. Dazu ist es notwendig, den Computer zu öffnen (Ach- 
tung! Garantieverlust}) und das Kernal-ROM durch ein 
2764-EPROM zu ersetzen. Bitte beachten Sie, daß dieser 
EPROM-Typ nur mit einer Adapterplatine (Bild 1 zeigt, welche 
Pins von Sockel und EPROM miteinander zu verbinden sind) 
in den U4-Steckplatz eingesetzt werden darf. Ohne diesen 
Adapter wird der C 64 wahrscheinlich beschädigt. 

Wer möchte, kann sein neues Betriebssystem natürlich 
auch im RAM unter dem ROM ($EO000 bis $FFFF) auspro- 
bieren. In Listing 1 ist dafür eine eigene Funktion im Menü vor- 
gesehen. Bei Listing 4 brauchen Sie sich keine Gedanken um 
EPROMs und Steckplätze zu machen. Sie funktioniert ohne 
jede Änderung mit jedem C 64. Leider muß sie jedesmal vor 
dem Arbeiten neu geladen werden. 

(W. Forstenrath, M. Braun, A. Wängler/hm) 


28poliger Sockel 24poliger Sockel 


1,28,27,26 


1,28,27,26 
Die Pins des 28poligen Sockels sind fett gedruckt 


Pin 1 eines jeden Sockels ist links von der Kerbe, Pin en n 
beziehungsweise 28 ist rechts davon. 





Bild 1. Das Verbindungsschema für den Adaptersockel | 


User-Port 
Pin-Nummer 


Drucker 
Pin-Nummer Signal 


STROBE PA2 
DATA 1 PBO 
DATA 2 _PB1 
DATA 3 PB2 
DATA 4 PB3 
DATA 5 PB4A 
DATA 6 . PB5 
DATA7 PB6 
 DATA8 = PB7 
ACKNLG FLAG2 
GND = OND-® 


Signal 


A 
BSR NDURUmD- 
. >uraceınmuooz 


Tabelle 1: Verdrahtungsschema der Centronic- 
Schnittstelle am User-Port (Stecker für User-Port: TRW 
251-12-50-170; für Drucker: 36poliger AmphenohSiecker; 
Kabel: Flach- oder Rundkabel bis 3 „s m) 
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420 FOKE 1,553 <QB1> 
438 FRINT" SCLR,DOWN,RISHT}EASIC UND C44 CEN 
TRON BEFINDEN SICH":PRINT"JETZT IM RAM. 
Geänderite Systemmeldungen 2 <Q1®> 
bisher = geändert 440 PRINT" {DOWN ,RIGHT}DIE FUNKTION KANN GET 
sn searcchng for = 2 un ve ESTET WERDEN. “152> 
et ER co ee "> 

_ press play on tape oe Na . Eu 

# i & zus 322 Fz 
_ press record & play on > 1B1@ READ A:IF A<® THEN RETURN <219> 

loading 1029 FOKE OF+I,A:T=T+1:60T0 1910 <195} 

saving 1038 END <138> 

_ verifying 2800 READ A:FOKE OF,A:READ A:FOKE OF+1,A:RE 

and TURN <234> 

a 3000 READ A:FOKE OF,A:READ A:POKE OF+1,A:RE 
a AD A:FOKE OF+2,A: RETURN <135} 
: 31999 DAT& 120,160,0,169,224,141,15,64,169, 
96,141,18,64,185,0,255,153,0,255,200 <019> 
3 32000 DATA 208,247,238,15,64,238,18,64 <072> 
Tabelle 2. Durch Verkürzung der Systemmeldungen 22001 DATA 173,19,64,201,128,288,234,88,96, 
wurde bei Listing 1 Platz eschaffen. 162505125 ,251,189 “1587 
g g = 32802 DATA 96,133,252,169,1,162,9,168,1,32, 
186,255,169,13,162,73,160,64,32,189 <254> 
32003 DATA 255,169,251,162,8,160,128,32,216 
.255,96,67,54,52,32,67,69,78,84,82 226> 
R Een ee er 32004 DATA 79,78,47,79,80,-35, 169, 194, 160, 2 
} Bene 4,-55,169,234.160,253,-55,13,163 <119> 
2 =. 2 le % <171> | 329085 DATA 13,85,82,160,168,80,204,82,175,1 
a DE E Sa 35204.13,211, 160, 13,214, 13 ‚„168,13,43 <@@1> 
Se E ‚VON # “218> | 32986 DATA 141,-55, 160,.2,160,6,160,11,162,1 
ee WOLFGANG FASTENRATH i ae 6,160,13.160.0,160,18,160,7,160,20 <141> 
den = er * “=B8> | 32007 DATA 160,9,169,37,141,4,220,169,64,14 
ET ELMAR SCHULTE = Lu 1 ,5,220,76,110,255,32,66,89 <113> 
ae a ar = 32 32008 DATA 84.69,83,32,82,65,77,13,0,-55,14 
ae EL. 92246/7132 * <249> 7 ,13,32,42,32,67,54,52,32,67,69,78 <218> 
: en = 2 = ee 520089 DATA 84,82,79,78,32,42,32,0, -55,76,95 
es UT Sys * De ‚228,76,212,240,32,0,241,44,12,221 _<192> 
ee r # BE 32010 DATA 48,6,32,151,258,76, s8\2 37,165,14 
ee een een en 9,44,12,221,88,26,72, 173,12,220,2B81 <248> 
BERSEE SSEnOEnh En ae <@@3> | 32011 DATA 219,208,3,108,54,3,104,201,65,14 
15 OF=16384:G60SUB 1000:SYS 16384 <194> n 4 10 a > #g11> 
Se ec | 4,108,221,192,144,4,41,127,208,2,9,32 <@11> 
= See ac Une DATA 32,183,228,24,36,163,16,5,169,0, 
su OE=25661:50SDB 1200 “241? 141,12,221,88,96,169,13,32,183,228, 20 
40 OF=28861:605UR 1928 <Qan> Ber : REN 
EEE <250> | 32013 DATA 242,-55,141,1,221,173,13,221,173 
50 OF=39149:G0SUB 2992 <OQ4> == 2 

= „0,221,41,251,141,0,221,9,4,141,0,221 <@28> 
78 OF=39162:G0SUB 2208 sgıe> | % 

2 32014 DATA 169,16,44,13,221,240,251,96,-55, 
ee BE See “034> 201 ,36,240,14,173,12,221,41,127,141 <225> 
70 OF=38355: 60SUB 2028 <Q42> > i ATZE 

= 32015 DATA 12,221 ,32,151,238,76,39,237,169, 
102 OF=380489:G0SUB 7228 <D6R: 5 PROR 
255,141,.3,221,44,12,221,48,13,175,12 <033> 
110 DOF=30544:50SUP 2000 <062> | 32g16 DATA 221,9,128,141,12,221,169,0,32,18 
er en Ne <D7er 3,228,24,88,76,120,44,12,221,48,5,88 <0@45> 
15B OF=58761:G60SUB 2288 <Q85> | 32017 DATA 32,54,237,96,72,41,31,201,7,8,17 
142 OF=38781:G0SUB 2099 <D95> se N 
ee ei 4 3,12,221,40,208,3,9, 64,44,41,191,141 <B@31> 
= en <095> 32018 DATA 12,221,194,41 „240,201 ,224 208,21 
160 0OF=32458:605SUB 1092 <199> = 76.154.208.-55 ; 2065} 
178 OF=27989:60SUB 3092 <148> HP! SE; 
i8@ OF=27949: GOSUB 3220 <139> 
190 OF=28091:60SUB a2 <147> | Listing 1. »C 64 Centron« (Schluß) 
200 OF-25595: G0SUB 1228 <162> 
218 OF=257853: G05UB 1208 <178> 
222 OF=28894:60SUB 1982 <185> 
3aB PRINT" {CLR,6RIGHT,ADOWN?<1> ABSPEICHERN <@68* 
312 PRINT" {3DOWN,&RIGHT}Z2> TESTOPTION <152> 
315 PRINT" {SDOWN,&RIGHT}?<S> ENDE. <161> 
328 FRINT" {4DOWN,SRIGHT?BITTE WAEHLEN £1/2/ 
ER r 216» | 12 POKE 56332,219: REM SETZT SCHLUESSEL <202> 
SaO GET AssIFr Aszerken) San ins» | 22 FOKE 822,60: POKE 823,3:REM. SETZT ZEIGER <2097> 
345 IF A$="1"THEN 350 2170 | SORT ZURBESFESE eher 
349 IF A$<>"1"OR As<>H"Z"OR As<>"Z"THEN 340 <o6og> | © G0TD 90 Ä a 
352 PRINT" {CLR,DOWN,RIGHT}’C64 CENTRON’ (BE 100 ek el en 
REICH F&Q0® - 3202)" <087:> “TIVe!! ; 
56@ PRINT" {DOWN,RIGHT}3WIRD AUF DISKETTE GES i1@ END «238: 
PEICHERT" <a22> | 32208 De Re ee: a 
- em Sn = u = I IS 5 .228> 
= a FOKE 16393,224:POKE 16398 Er 32001 DATA 208, 192,37, 300,25) 104,1 168, 104, 
‚@:POKE 168401,0:FOKE 16416,0:SYS 185384 <«214> 76,142,228,67,54,52,352,67,69,78,84,8 
410 POKE 16398,16Q:POKE 16393,16Q:POKE 1637 “= “0627 
8,2:FOKE 16401,2:FOKE 16416,192:5Y5 163 32992 DATA 79,78,52,77,73,84,32,66,67,78,8 
ga 2115: 5,84,90,69,82,83,67,72,78,73,84,84,8 
<121> 
En 5 . 52003 DATA 84,69,76,76,69, 2154> 
Listing 1. »C 64 Centron«. Kernal-Centronics-Schnittstelle 
ohne Funktionsverlust. Listing 2. Beispiel zur benutzerdefinierten 
Beachten Sie bitte die Eingabehinweise auf Seite 77. Schnittstelle in »C 64 Ceniron« 
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1 REM UM IN DEN BEREICH AB #82090 <@01; "»PRINT:FRINT:END «965 > 
? REM ZU VERSCHIEBEN : By <168> 1200 REM BLOCK 1 +E4B8-FE4ACB <114> 
3 REM <146* 1218 DATA 585572,16,2331 <209 
4 REM 10 FOKES6,1?28.. <177> 1028 DATA 32,189,255,165,1985,734,234,201,7 
5 REM <148> ‚240,4,169,2,133,185,96 <@47 > 
& REM 28 OF=24576&:.. £<091> 1238 REM BLOCK ? +FC41-FFCCF 1712 
7 REM 68 IF FR{>3153... <253> 102408 DATA 54577,143,16117 <148> 
8 REM 95 DATA 08,168,1&0... “095> 1258 DATA 145,186,201,4,240,3,76,74,243,16 
OO REM KERHHHHKEEHRHREHHEH RR HHRHRHNR RR 2717453 9,1,162,1904,1608,752 „116> 
iD FOKE 56,96:FOKE 55,8:CLR -B289> iB8B DATA 32,184,228, 32,74,2453,176,8,165,2 
>20 OF=32768 : RESTORE <043 > 41.253.153,2,24 <236> 
38 PRINT" {CLR}READING MC-PROGRAM...":PRINT 10870 DATA 98,165,2,9,2,133,2,24,96,13,72,1 
: PR=@ <128> Sk 4 945 
AD FOR N=8?28 TD 8553 £143% 10880 DATA 249,3,76,285,241,165,2,41,2,208, 
5QD READ D:FOKE N,D:PR=FR+D «178: 4,165,154, ‚208,243 70:20577 
55 NEXT <185> 12978 DATA et 41,16,234,234,165,2,4 
6@ IF FR<>3121 THEN PRINT"EEHLER IN MC-MT 1,13240523,173,24 <035> 
AS"=STOP <@089> 1188 DATA 208 „41 ,2,254 ,234 „104,201 ,64,14a, 
70 PRINT"VERSCHIEBE #E@99-$FFFF NACH #6Q00 18,2@1,192,144,4,41 <139> 
"PRINT <B6Q > 1118 DATA 127,208,2,9,32,72,1@04,76,172,243 
3D SYS 8728 144} 24,76,32,15,243 £032> 
98 DATA 169,0,160,224,133,95,132,96,169,80, 1170 DATA 240,3,76,1,247,32,31,243,165,18& 
168,133,98,132,91,169 <137> ‚281,4,240,3,76 22373 
95 DATA 0,1649,128,133,88,132,89,76,191,165 <128> 1158 DATA 91,242,165,2,41,2,248,247,165,2, 
iaQ BiL=1 <213> 41,254,133,2,165 9038> 
112 FR=B <242> 1148 DATA 185,41,7,281,7,76,194,254 <217> 
120 READ A,E,F :PRINT"BLOCK :"BL; <178> 1158 REM BLOCKS +FEC4- $FEDZ <D409> 
1308 FOR N=A TO A+E-1 <244> 1160 DATA 657218,18,19602 166} 
1428 READ D :FOKE N-OF,D :PR=PR+D 2068: 1170 DATA 298,6,169,1,5,2,133,2,169,255,14 
158 NEXT <Q24> 1232218169 ,4,76,133, 243 <227> 
168 IF PR=F THEN PRINT" 0.K.":60T0 208 <158> 1188 REM BLOCK4 #F399-#F3CQ 2026 
178 PRINT"FRUEFSUMME FALSCH! "PR" STATT "P <@48> 1190 DATA 62361,47,5538 <199> 
1828 FRINT:PRINT"TASTE DRUECKEN" PRINT <009 > 1222 DATA 13,0,221, 147.0:221,173.27 221,954 
190 FOKE 198,B:WAIT 198,1:POKE 198,0 £237> „141,2,221,169 <239} 
200 BL=BL+1:IF BL<=4 GOTO 112 <120> 1218 DATA 457,642117.4242,1831,14221,173,0,221 
218 PRINT:PRINT"ZEIGER AUF AUSGABE BERICHT 41,251, 141 „8,221 <145> 
IGEN" 2064 > 1220 DATA 234,234 ,2354,9,4,141,8,221,173,13 
220 POKE &4822-OF ,‚65:POKE 64823-0F ,252 :RE ‚221,41,16, 240,249,24, 95 <@Q8> 
M OPEN-VEKTOR <948> 1230 REM ENDE <125> 
230 FOKE 64828-0F,167:POKE 64829-0F ‚?252:RE N 
M CHKOUT-VEKTOR is 2. . 
240 P 648354-0F „105: 35- 52: Er - r i i 
a a re A <a24> | Listing 3. Centronics-Schnittstelle in Hypra-Perfekt einge- 
992 PRINT:PRINT"AENDERUNGEN DURCHGEFUEHRT. bunden 
iD GOTO 78 «252> 302 SYS SA <095> 
2@ REM HEX -> DEZ <214> 318 END <183> 
30 SAF=RIGHTF(" {4SFACEI"+SAF,4) <168> 328 REM" GESFERRTE BEREICHE <Q9D: 
4D SA=B:FOR I=1 TO LEN(SA#) :S@=ASC (MID# (SA 330 DATA 4 <002> 
#,1,1)):SA=16*5SA+S5R-48+(59>64)*7: NEXT <195> >42 DATA 8,827,1023,2037,497690,49151,53248 
SB RETURN <192> 655535 <134> 
&0 REM ADRESSE -> LOW,HIGH <123> 359 REM MASCHINENPFROSRAMM <233> 
78 SH=INT (54/256) : SL=54-2564*5H <@11> 368 DATA 120,169,192,160,122,141, 35, 3,1 
8@ RETURN <222> 40, 32, 3,169,192,160, 59,141 <173> 
98 PRINT CHR#$ (14); " {CLR,?DOWN , 7SPACE}IC-64 370 DATA 39, 3,148, 38, 5, 88, 32,2904,25 
PARALLEL PROGRAMM" <Q48B:> 5,160, 20,185, 37,192, 32,210 :248> 
188 FRINT" {7SPACE 3------------------- -——— " <Q31> 388 DATA 255,156, 16,247, 96, 153, 86, 73, 
112 PRINT: <065: 84, 75, 65, 32, 84, 82, 77, 88 “207: 
12Q@ INPUT "STARTADRESSE: ";5A#:S5A=VAL(SA#) <209: 390 DATA 45, 76, 69, 76, 76, 65, 82, 65, 8 
138 IF LEFTE£(SAF,1)="#"THEN GOSUB 38 <236> 0701357241 455154,201, 25240 <197> 
140 READ EN «166 400 DATA 3, 76,205,241,173, 13,221,165, 
1520 FOR I=1 TO EN <122> 2, 41, 1,240, 16,104,201, 64 2937 
168 READ A,B: IF SA+187>=A AND SA<=B THEN R 410 DATA 144, 108,281,192,144, 4, 41,127,2 
UN <056> 08,, 0242 9.3253 72:1983,141%°°1 <214> 
170 NEXT <Q44> A2UDATS. 221.173, 2 0,221,.41,251,141, 9,2 
138 FRINT:FRINT"EINLESEN DES H£-PROGRAMMES 21,234 ,234,234, 9.22, 120.0 <907: 
"PRINT <@32> 438 DATA 221,173, 13,221, 41, 16,240,249, 
192 S1=-S5A+58B:57=-5A+172:5F3=-SAr37 <P55%: 24, 976, 32, 19,245 ,240, 52070 095 > 
200 FOR I = SA TO SA+187 <090> 448 DATA 1,247, 32, 31,243,165,186,221, 
210 READ DA 222> ANZAR 2) 76,.91,282,.165, 2 008: 
220 FOKE I1,DA <1909> 4508 DATA 41,254,135, 2,165,185, 41, 7,28 
230 NEXT I <177> 1.2 Z2Da are. Rz <075> 
240 S4=52 : GOSUB 78 <220> A460 DATA 137, 2,169,255,141, 3,221,169, 
250 POKE SA+2,SH:FOKE SA+4,SL <214> 2.213...0,221,141, 0,221,169 63: 
>60 S54=51 :60SUB 78 “240: AZULDATRIeN.N LS. 20235,141,. 2,221,.169, 
278 FOKE SA+12,SH:PFOKE SA+14,5L <@77> ANTENIITADAD <108> 
272 54=53 :G605UB 7% <254> 
274 POKE S5A+28,5SL:FOKE SA+27,5H <D94> 
> : “ "ST Ener : . R - i 
au ae AIEDEREINSEHRLTEN NACH 0 0a, | Listing 4. Eine frei verschiebbare Centronics-Schnittstelle 
298 PRINT:PRINT"MIT{ASPACEF SYS "sSAs"'"  <oee> | als Softwarelösung 


Ausgabe 7/Juli 1985 


3aR.8l... 


64er-online.net 





Compactor 


Wozu unnötigen Ballast auf Diskette 
speichern und laden? Der File- 
Compactor kürzt fast jedes Programm 
— bis zu 50 Prozent. Einzige Voraus- 
setzung: mindestens eine Basic-Zeile. 


Fast alle Programme, egal ob Basic oder Assembler, weisen 
Folgen von gleichen Zeichen auf. Denken Sie nur an Grafikbil- 
der, die in einem Programm enthalten sein könnten. Diese Zei- 
chenfolgen lassen sich kürzen. 

"Man geht dazu folgendermaßen vor: Man durchsucht das 
ganze Programm nach Folgen von gleichen Bytes. Wurde eine 
Folge gefunden, wird ein Merkzeichen (in diesem Fall $bf oder 
$cf) an die momentane Stelle geschrieben. Danach der Zei- 
chencode und die Anzahl der Zeichen. Verwechslungen mit 
eventuell vorkommenden $bf- oder $cf-Codes können da- 
durch ausgeschlossen werden, indem man vor diese Codes 
noch mal den Code und für die Anzahl eine »1« schreibt. 

Damit die gekürzte Version lauffähig ist, wird vor das eigentli- 
che Programm noch ein »Entpacker« gesetzt, der auch mit ab- 
gespeichert werden muß. Von jedem Programm bleibt nach 
dem Komprimieren nur noch eine Zeile mit einem SYS-Befehl 
(zum Start des Entpackers) übrig. 

Tippen Sie RUN ein, wird vor dem eigentlichen Programm- 
start das ursprüngliche Programm aus den komprimierten Da- 
ten wieder zusammengesetzt; erkenntlich an der dunkelblau- 
en Rahmenfarbe. Das komprimierte Programm wird dazu an 
das Speicherende verschoben und dann Byte für Byte wieder 
an die Stelle gesetzt, wo es vor der Behandlung mit dem File- 
Compactor stand. Stoppen Sie das Basic-Programm nach 
dem Entpacken mit STOP oder STOP/RESTORE, sehen Sie 
wieder das normale Basic-Programm in seiner vollen Länge. 





Spart Platz auf Disketten 


Ein Beispiel: Bestimmte Versionen des Spiels »Apocalypse« 
sind 153 Blocks lang. Nach der Behandlung mit dem File- 
Compactor aber nur noch 83 Blocks, also um 46 Prozent kür- 
zer. 

Tips zur Benutzung 

1. File-Compactor mit dem MSE eingeben und abspeichern. 
2. Das so gespeicherte Programm mit LOAD”FILE-COMPAC- 
TOR”,8 laden und mit RUN starten. 

3. Diskette mit dem zu kürzenden Programm einlegen. 

A. Namen des Programms eingeben und RETURN drücken. 
Das Programm wird geladen. 

5. Diskette mit genügend freiem Platz einlegen. 

6. Namen des gekürzten Programmes eingeben und RETURN 
drücken. Die gekürzte Version wird gespeichert. 

Wollen Sie ein Maschinenprogramm kürzen, das mit LOAD 

"name”8,1 geladen und mit SYS gestartet wird, müssen Sie 
das Programm erst mit dem Basic-Start-Generator auf Seite 74 
»vorbehandeln«. (Marcus Breiing/hm) 


Listing zum File-Compactor. Es muß mit dem MSE 
eingegeben werden. Beachten Sie bitte dazu die 
Eingabehinweise auf Seite 77. 


32 ZJoar 


sauer On! 





Sr 
49 bb 
a9 66 
a9..95 
28 Ze 
a2 24 
ba #8 
b8B b4 
a2. 208 
a9 db 
ff c9 
za e7 
DQ Be 
d2 Se 
a9 ab 
ce3r ı2d 
85 96 
Cor v2 
537 Ba 
tb dS 
D& a8 
a2 e7 
27 a8 
fi 18 
bd df 
207 Ze 
i8 e4 
fc db 
40 397 
z8 18 
40 78 
1722 227 
@b 735 
40 980 
a5 58 
E57 250 
fb #5 
za a9 
dl. 2c 
69 986 
4c 58 
43 &c 
28 ca 
28 32 
45 ee 
da 23 
2d 35 
28 530 
49 e6 
4c 1f 
28 ea 
32  Gd 
4d 64 
31...897 
pa 72 
32:37 
e8 ea 
D1 70 
85 4b 
85 e7 
bi 82 
e4 21 
a5 ad 
a5 31 
42: )3c 
za .d3 
83 fb 
c9 a7 
aa 19 
da 85 
B4 52 
B> 83 
Ba 3d 
fb &8 
Sr rt 
91 Bd 
38 96 
Ze Bd 
eds a4 
pa 9f 
Ze Zd 
62 f6 
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Elektronischer Merkzettel 


Wenn Sie mit zwei unabhängigen Bildschirmen arbeiten wollen, dann werden 
Sie von diesem Programm begeistert sein. 





38 PRINT CHR& (147) :PRINT 

32 REM x**x** COPYRIGHT #### 

35 PRINT SPC (12) "UECECCCECEECEGL" 
36 PRINT SPC(12)"B MERK-ZETTEL PB" 
37 PRINT SPC (12) " ICLCLECELECEEERK" 


MER" 


DSCHIRMSEITE" 







CE,RVOFF,SFACE?- BILD WECHSEL“ 
88 FRINT:PRINT SPC (S54)"<< TASTE >>" 


Listing »Merk-Zettel« für 
den C 64. Beachten Sie 
bitte die Eingabehinweise 
auf Seite 77. 


Das Programm »Merkzet- 
tel« ist ganz in Maschinen- 
sprache geschrieben. Es 
entstand aus folgendem Pro- 
blem: Während man ein Pro- 
gramm schreibt, will man No- 
tizen machen, die man häufig 
auf einem Zettel notiert. Hat 
man dann erst einmal einige 
Zettel vollgeschrieben, findet 
man meistens die erste Notiz 
nicht gleich wieder. Das ko- 
stet Zeit und beansprucht die 
Nerven. Dieses Programm 
ermöglichtnun das Führen ei- 
nes Notizblattes direkt mit 
dem Computer. Durch Drük- 
ken der Funktionstaste F1 
wird der Inhalt des Bild- 
schirms mit dem Inhalt des 
Speichers vertauscht. Sie 
schreiben also Ihre Notizen 
auf den Bildschirm, drücken 
die Taste F1 und schon ha- 
ben Sie die Information ge- 
speichert. Wenn Sie sie wie- 
der brauchen, drücken Sie 
einfach erneut die Taste F1, 
und auf dem Bildschirm er- 
scheinen die vorher abgeleg- 
ten Informationen, in einer 
bestimmten Farbe. Diese Far- 
be können Sie in der Zeile 88 
ändern, indem Sie einen an- 
deren Wert als Null in das Re- 
gister 49366 POKEn. 

Das Programm belegt den 
Bereich von $CO00 bis 
$CODB. Außerdem werden 
die nachfolgenden 2 KByte 
noch zur Zwischenspeiche- 
rung benötigt. 

(Georg Kramer/ah) 
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18 REM KHK EHER HR 


28 REM *% MERK-ZETTEL *%* 
ZI REM IE anna nnnenan— nm *% 
22 REM ** WRITTEN BY GEORG KRAMER *%* 
23 REM #%* 4783 ANROECHTE *% 
24 REM ** xx 


25 REM #44 ERRERRERERRFRHERHERR 


38 PRINT:PRINT SPC (8) "WRITTEN BY GEORG KRA 


39 PRINT=:FRINT SFC(13)"(C) 18.2.1985" 
48 FRINT:FOR I=1 TO 48:PRINT"-";:NEXT 
5@® PRINT SFC (41) "ZWISCHENSFEICHERN DER BIL 


55 PRINT:PRINT SPC (18) "NEUE TASTENFUNKTION 
2 {DOWN , ZILEFTI------——-———----" 
60 PRINT:PRINT SFC (11) " {RVSON,SPACE)F1{SPA 


x 


<B91> 
<127> 
<185> 
<075> 
<189> 
<175> 
<1B&> 
<a84> 
<B&2> 
<152> 
<1853> 
<235> 
<176> 


<219> 
<196> 
235? 
<133> 
<139> 


<139> 
<175> 


v2 
92 


93 
99 
















POKE 198,8 

GET AS: IF A$=""THEN 82 

PRINT CHR$(147)SPC (52) "ETWAS GEDULT..." 
REM ##** DATEN LADEN ##*#* 

FOR I=49152 TO 49415 

READ A:POKE I,A:X=X+A:NEXT - 

IF X<>358438 THEN PRINT"DATA FEHLER !“:E 
ND 

FOKE 49152+214,80:REM + SCHRIFTFARBE + 
SYS 49152:REM PRG.-START 

PRINT" £CLRI":PRINT SPC (44) " {RVSON,SSPAC 
EIPROGRAMM AKTIVIERT {SSPACE}" 

PRINT SPC (4) " {RVSON, 11SPACEIFCOBR-$C107 
<FSPACE}" 

PRINT SPC (4) " {RVSON,SSFACEIENDE MIT RUN 
/STOP-RESTORE {SSPACE}Y" 

END 

REM *%*#** MASCHINENPROGRAMM #%% 


108 DATA 76,251,192,162,0,134,251,162,194, 


134 ,252,162,232,134,253,162,197 


181 DATA 134,254,162,8,154,182,162,199,134 


‚183,160,0,177,251,145,182,165,252 


102 DATA 197,254,240,22,165,251,2@1,255,24 


0,24,230,251,165,182,201,255,248 


259? 
<137> 
(2537? 
<175> 
<129> 
<252> 


<217> 
<B835> 
<151> 
<D&6> 
<112> 
<B15> 
<221> 
<061> 
<B69> 
<219> 


<103> 


NN 


183 DATA 28,230,182,169,0,221,9,2490,224,1& 
5,251,197,253,208,228,248,24,169 <114> 
104 DATA 255,133,251,230,252,169,0,201,0,2 
40,220,169,255,133,182,230,183,169 <204> 
105 DATA 0,201,0,240,216,96,165,203,201,4, 
240,4,76,49,234,96,169,0,141,4,172 <199> 
106 DATA 169,4,141,8,192,169,0,141,12,192, 
169,8,141,16,192,169,0,141,208,192 <169> 
187 DATA 169,194,141,24,192,32,3,192,169,8 
„141,4,192,169,199,141,8,192,169 <147> 
1088 DATA 232,141,12,192,169,202,141,16,192 
‚169,0,141,280,192,169,4,141,24,192 <208> 
109 DATA 32,3,192,169,0,141,4,192,169,194, 
141,8,192,169,232,141,12,192,169 <134> 
118 DATA 197,141,16,192,169,0,141,28,192,1 
69,199,141,24,192,32,3,192,169,0 <134> 
111 DATA 133,251,169,216,133,252,160,90,167 
„1,145,251,230,251,208,258,166,252 <212> 
112 DATA 224,218,2490,8,230,252,162,9,224,8 
‚240,232,230,252,160,8,145,251,208 <177> 
113 DATA 192,232,208,249,76,49,234,96,234, 
120,169,94,141,20,3,169,192,141 


114 DATA 21,3,88,96 
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»Fenster«- 
Beiehle 
für den C 16 


Dieses Programm stellt den im C 16- 
Basic leider nicht vorhandenen »Win- 
dow«-Befehl zur Verfügung und macht 
Schluß mit dem umständlichen Han- 
tieren mit den ESC-Funktionen. 


Wer im Befehlssatz des Basic 3.5 nach dem Befehl »Win- 
dow« sucht, wird nicht fündig. Die groß angekündigte moderne 
Window-Technik läßt doch zu wünschen übrig. Ein Window, al- 
so ein Bildschirmfenster, kann nur mit Hilfe der ESC-Taste defi- 
niert werden. 

So muß man, um ein Window zu setzen, mit dem Cursor an 
die linke obere Ecke des gewünschten Bildschirmfensters fah- 
ren und die Tasten ESC und T drücken. Die rechte untere Ecke 
des Fensters wird ebenfalls mit dem Cursor gewählt und mit 
ESC und B gesetzt. Erst jetzt ist das Fenster definiert. 

Im Direktmodus ist dieser Aufwand nicht hinderlich, sondern 
bringt eher Vorteile, da kein Befehl »„WINDOW« am Bildschirm 
erscheint. Im laufenden Programm istes jedoch sehr umständ- 
lich, ein Fenster zu generieren. Es sind sehr viele PRINT-An- 
weisungen nötig. | 

Da die Window-Funktion jedoch in vielen Programmen nütz- 
lich ist, lohnt es sich schon, diese Funktion komfortabel als 
Basic-Befehl zur Verfügung zu haben. Ein kleines Maschinen- 
programm macht's möglich. 

Nach Eintippen des DATA-Laders (Listing 1) sollten Sie das 
Programm als erstes unbedingt abspeichern, da es sich nach 





Kontrolle der Prüfsumme selbst initialisiert und anschließend 
der DATA-Lader gelöscht wird. 

Haben Sie das Programm abgespeichert, dann können Sie 
es mit»RUN« starten und haben kurz danach den neuen Basic- 
Befehl »FENSTER« zur Verfügung. 

Der FENSTER-Befehl hat folgendes Format und kann in je- 
dem Basic-Programm verwendet werden: 

FENSTER AZ,AS,EZ,ES 
Die Parameter haben folgende Bedeutung: 


AZ = AnfangsZeile 
AS = AnfangsSpalte 
EZ = EndZeile 

ES = EndSpalte 


Gibt man im Programm beispielsweise die folgende Zeile 10 
ein, so wird ein Fenster von Spalte 5 der fünften Zeile bis ein- 
schließlich Spalte 35 der 15. Zeile definiert. 

10 FENSTER 5,5,35,15 

Das Fenster kann durch zweimaliges Drücken der HOME- 
Taste oder durch Generieren eines neuen Fensters gelöscht 
werden. 

Dem Fenster-Befehl müssen auf jeden Fall vier Parameter 
folgen. Für die Parameter AZ und EZ sind nur Zahlen zwischen 
1 und 25 zulässig. AS und ES dürfen nur zwischen 1 und 40 
liegen. Außerdem ist zu beachten, daß AZ auf keinen Fall grö- 
Ber als EZ, und AS nicht größer als ES gewählt wird. 

Der Fenster-Befehl darf auch nicht im Direktmodus verwen- 
det werden, aber da ist die normale Vorgehensweise über 
»ESC« sowieso sinnvoller. Sollten diese Bedingungen nicht 
beachtet werden, erscheint die Fehlermeldung »SYNTAX ER- 
ROR«. 

Das Beispielprogramm Fenster-Demo (Listing 2) generiert 


gaen omıizufäline Textfenster und füllt diese farbig aus. 


Der FENSTER-Befehl verkürzt ein Basic-Programm bei häu- 
figer Anwendung gegenüber der konventionellen Methode 
über PRINT-Anweisungen ganz erheblich, so daß die vom Ma- 
schinenprogramm beanspruchten 255 Byte trotz des mage- 
ren C 16-Speichers kaum ins Gewicht fallen dürften. 

(Christian Quirin Spitzner/ev) 





1D REM Ka HHr NEE HEERHHERRRERFNE 428 FENSTER 4,1,25,48 

2D REM * * 430 : 

3Q0 REM * FENSTER FUER C 16 %& 116 * 440 REM *** BASIC-LOADER LOESCHEN *#** 

48 REM * * 458 : 

58 REM * CHRISTIAN QUIRIN SPITZNER * 468 NEW 

60 REM * GRUBERSTRASSE 53 * 470 : 

78 REM * 8011 POING * 48D REM *** DATA’S *%*%* 

80 REM * x 498 : ieti & 

GB REM KUREN ENHHKEEREERERKEUERHERR RR HH 508 DATA 169,924,141,008,02083,169,065,141 Listing 1. Der DATA Lader 

108 : 512 DATA 209,083,162,008,189,205,063,832 zum »Fenster«-Befehl 

110 : 520 DATA 2198,255,232,224,043,208,245,996 

1208 REM *** SPEICHER BEGRENZEN #*#** 530 DATA 162,000,032,115,004,221,209,063 

158 : 540 DATA 208,007,232,224,087,208,243,240 

148 POKE 53,255 : POKE 54,62 : POKE 55,2 558 DATA 09864,032,121,004,076,217,137,052 

55 : POKE 56,62 : CLR ; ; 560 DATA 183.251,032,115.004,032,132,157 120 REM FENSTER-DEMO 

150 : 578 DATA 142,249,063,032,145,148,032,132 110 : 

168 REM xx** ERKLAERUNG **%* 588 DATA 157,142,250,063,032,145,148,032 128 COLOR 28,1 : COLOR 4,1 : SCNELR 
170 : | 598 DATA 132,157,142,251,063,0532,145,148 i3Q : 

1808 PRINT"LIW"TAB (12) "*%*%* IFENSTERBE *#%*" 602 DATA 932,132,157,142,252,063,174,249 148 DO 

198 PRINT" FORMAT: 618 DATA 963,224,000,208,003,276,161,148 158 = AZ = INT(RND(TI)#12) +1 
208 PRINT"® MSFENSTER AZ,AS,EZ,ESE 620 DATA 224 ,024,016,249,174,251,063,224 160 : EZ = AZxZ+1 

218 PRINT"® AZ = ANFANGSZEILE 638 DATA 926,016,242,236,249,063,048,237 2 2 *20) + 

228 PRINT" AS = ANFANGSSPALTE 648 DATA 174,250,063,224,0209,240,230,224 en s ae) or u Hg 
238 PRINT" EZ = ENDZEILE 658 DATA 941,016,226,172,252,863,224,041 gg 2 = 

248 PRINT" ES = ENDSPALTE 660 DATA 016,219,236,250,063,048,214,162 = 

258 PRINT" NICHT IM DIREKTMODUS ! 670 DATA Q20.222.249,063,232,224,004,20aa 288 : FENSTER AZ,AS,EZ,ES 

260 : 680 DATA 248,173,249,063,133,205,173,25® 218 : 

27® REM DATA’S EINLESEN #%*%* 698 DATA 863,133,202,169,027,032,219,255 228 =: PRINT"L";5 

280 : | 7080 DATA 169,084,032,210,255,173,251,865 238 = COLOR 1,RND(TI)#15+2,RND(TI)*8 
290 FOR I=16128 TO 16583 718 DATA 133,205,173,252,063,133,282,169 2408 : E = (ES-AS+1) *(EZ-AZ+1) -1 
308 : READ P 728 DATA 9827,032,2190,255,169,064,032,210 259 : FOR I=1 TO E 

3i® : Z=Z+P 738 DATA 255,169,219,032,210,255,032,193 >40 : PRINT" m"; 

320. = PFOKE I,P, 748 DATA -251,032,121,004,876,217,139,000 378 2: NEXT ee 

358 NEXT I 750 DATA 900,200,200,200,280,147,013,032 ze " PRINT" SCHRE GAB)" mr; 
348 IF 2 <> 30077 THEN PRINT"® DAT 768 DATA 130,070,06497,078,283,084,9069,082 E 3 ı =; 
A ERROR" :END 778 DATA 132,032,840,067,841,032,867,972 278 LOOP 

350 : 788 DATA 082,973,083,084,073,065,078,832 

360 REM *** INITIALISIEREN #*#* 798 DATA 081,085,973,282,073,078,032,083 READY. 

378 : BO@ DATA 280,073,084,090,078,069,082,013 

380 SYS 16128 818 DATA 813,0098,209,200,000,200,200,000 Fr ka 

Fi REM FENSTER-BEFEHL AUFRUFEN *%** Listing 2. Ein Demo-Programm 
4 Nar - 

418 : READY. zum »Fenster«-Befehl 


83 Zar 
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__C6arVC 20 


VC 20-Steckmodule auf Diskette 


Wer ein Programmierhilfe-Modul wie zum Beispiel den 


»Super-Expander« und gleichzeitig eine 64-KByte- 
Speichererweiterung besitzt, der steht vor dem Problem, daß 
immer nur eines von beiden Modulen eingesetzt werden kann. 
Man hat also die Wahl zwischen erweitertem Speicher und 
komfortabler Programmierung. 

Doch das muß nicht so sein. Wenn Sie ein Diskettenlaufwerk 
zur Verfügung haben, dann können Sie das Modul einfach auf 
Diskette abspeichern und bei Bedarf in den Steckmodulbe- 
reich ($A000 bis $BFFF) der 64-KByte-Erweiterung laden. 
Gehen Sie dabei wie folgt vor: 

Bei eingesteckter Supererweiterung wird zunächst der 
Basic-Anfang durch 
POKE 43,0:POKE 44,160 
auf $AO0O, also auf. den Steckmodulanfang, gesetzt. Nun wird 
noch der Zeiger auf das Basic-Ende verbogen: 

POKE 45,0:POKE 46,192 

Das Modul kann jetzt mit »SAVE "»Name’,8« auf Diskette ge- 
speichert werden. Bei Bedarf kann es jederzeit wieder mit 
»LOAD ”"Name”,8,1« geladen werden, vorausgesetzt natürlich, 
man hat RAM im Bereich $A000 bis $BFFF zur Verfügung. 
Die Supererweiterung wird mit »SYS 64802« eingeschaltet 
und meldet sich dann mit 28023 freien Speicherbytes. Aus- 
geschaltet werden kann sie mit »SYS 64818«. 

Natürlich ist das Laden von Diskette umständlicher, als 
gleich mit dem Steckmodul zu arbeiten. Der große Vorteil liegt 
aber darin, daß man jetzt über die Befehle der Supererweite- 
rung und gleichzeitig den vollen Speicherausbau verfügt. 

Es muß noch darauf hingewiesen werden, daß sich Spiele- 
module mit dieser Methode in der Regelnicht kopieren lassen, 


da sie erstens mit einem Autostart versehen sind und zweitensnnu._ 


zusätzliche Schutzmaßnahmen eingebaut haben. Die hier be- 
schriebene Methode funktioniert nur zusammen mit einer Dis- 
kettenstation, da das Betriebssystem des VC 20 sich weigert, 
den Steckmodulbereich auf Kassette abzuspeichern. 
(Günter Büntemeyer) 


Es muß nicht immer »READY.« sein ... 


Wenn Sie sich darüber ärgern, daß der GC 64 nach jedem 
ausgeführten Befehl sein stupides »READY.« auf den Bild- 
schirm schreibt, dann geben Sie doch die beiden folgenden 
Zeilen im Direktmodus ein: 

FOR I=40960 TO 49151 : POKE I,PEEK(l) : NEXT : POKE 
1,54 : REM Basic-Interpreter ins RAM laden 

FOR I=41848 TO 41853 : POKE 1,32 : NEXT : REM READY- 
Meldung überschreiben 

Wenn Sie jetzt irgendeinen Befehl eingeben, erscheint kein 
»READY.« mehr. Natürlich können Sie aber auch einfach den 
Text ändern: 

A$="HALLO” : FOR I=1 TO 6 : POKE 41847 +1,ASC(MID$ 
(A$,11)) : NEXT 

Nach Eingabe dieser Zeile meldet sich der Interpreter nach 
jeder Eingabe mit »HALLO.«. Sie können jeden beliebigen Text 
wählen, vorausgesetzt, er ist maximal sechs Zeichen lang. 

(Andreas Scharrer) 


Simons Basic und Turbo-Tape 

Das langsame Laden von der Datasette ist ein gravierender 
Nachteil von Simons Basic, der sich aber mit »Turbo Tape« be- 
heben läßt. Nun überschneiden sich zwar Simons Basic und 
Turbo-Tape in bestimmten Speicherbereichen und bei der 
Zeropage-Belegung, aber das läßt sich mit wenig Aufwand be- 
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heben. Wer sich an die folgenden Anweisungen hält, wird 
künftig auch bei Simons Basic im Turbo-Tape-Modus laden und 
abspeichern können. Die Anweisungen gelten für alle Turbo- 
Tape-Versionen, die einen Basic-Kopf haben und über »SYS 
50000« reaktiviert werden können. Die Anfangsadresse des 
ungekürzten Turbo-Tape ist A=3032. Bei anderen ÄAnfangs- 
adressen sollte der entsprechende Wert im Umschreibepro- 
gramm verwendet werden. 

(1) Umschreiben von Turbo-Tape 

Durch folgende Manipulationen wird Turbo-Tape in einen an- 

deren Speicherbereich verlegt: 

— Simons Basic laden und starten. 

— Turbo-lape laden ohne zu starten. 

— Eingabe der folgenden Zeilen im Direktmodus: 

A=3032 : B=PEEK(45) + 256 * PEEK(46) : D=O : DIM 
A(100) 

FORX=ATOB: C=PEEK(X) : IFC>19 ANDC< 198 THEN 
D=D+1 : A(D)=X : NEXT : ELSE : NEXT 

H=141 :G = 169 

FORX=1TOD:C=A(X) : F=PEEK(C-2) :IFF=32 ORF=H 
OR PEEK(C-1)=G THEN POKE CG,PEEK(C)-96: NEXT : ELSE 
: NEXT 

— Turbo-Tape ist jetzt fertig umgeschrieben und sollte zu- 
nächst abgespeichert werden. 

(2) Der Umgang mit Simons Turbo-Tape 

— Erst Simons Basic, dann das umgeschriebene Turbo-Tape 
laden und starten. 

— Um mit Simons Basic normal arbeiten zu können, muß es 
mit »SYS 32778« reaktiviert werden. Ein eventuell vorhande- 
nes Programm erhält man mit dem Befehl »OLD« zurück. 

— Zum Laden oder Abspeichern von Programmen wird Turbo- 
Tape mit »SYS 25424« aktiviert. 

= Simons Basic und Turbo-Tape werden also je nach Bedarf 
wechselseitig eingeschaltet. 

— Der Basic-Speicher sollte auf $6000 eingegrenzt werden, 
damit Turbo-lape nicht überschrieben wird. 

Wenn man sich genau an diese Hinweise hält, dann steht ei- 
nem Arbeiten mit Turbo-Tape auch bei Simons Basic nichts 
mehr im Wege. Es gibt mittlerweile auch neue Versionen von 
Turbo-Tape und Simons Basic, die problemlos von Anfang an 
zusammenarbeiten. (Klaus Holthausen) 


Tips für VC 20 und Datasette 


POKE 37148,252 Datasetten-Motor einschalten 
POKE 37148,254 Datasetten-Motor ausschalten 
WAIT37148,2,2 Wartet auf Drücken einer Datasetten-Taste 
WAIT 37151,64 Wartet, bis »Play«-Taste ausrastet 

(Thomas Hahn) 


Textomat mit Centronics-Drucker 


Mit wenig Aufwand und zudem sehr preiswert ist es möglich, 
das Textverarbeitungsprogramm »Textomat« von Data-Becker 
ohne teures Hardware-Interface an einen Centronics-Drucker 
(zum Beispiel Epson RX) anzuschließen. 

Als Software-Schnittstelle wird dabei das Treiberprogramm 
von Arnd Wängler und Thomas Krätzig aus der Ausgabe 6/84 
des 64’er-Magazins verwendet und das dazugehörige, im glei- 
chen Artikel beschriebene User-Port-Kabel, das ein paar Mark 
in Anspruch nimmt. | 

Die Aufgabe besteht nun darin, Textomat irgendwie an diese 
Schnittstelle anzupassen. Zur Datenübertragung mit dem 
Wängler/Krätzig-Interface muß ein Druckerfile zur Geräte- 
adresse 4 geöffnet werden, das keine Sekundäradresse oder 
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allenfalls die Sekundäradresse 128 enthalten darf. Da Texto- 
mat aber nur Sekundäradressen zwischen 1 und 14 zuläßt, 
muß die Anpassung extern erfolgen. Dabei behilft man sich mit 
einem kleinen Trick: 

Mit dem Druckermenü des Textomat wird ein Druckerpro- 
gramm zu einer anderen Sekundäradresse erstellt und auf Dis- 
kette abgelegt. 

Dieses »Programm« wird nach Aus- und Wiedereinschal- 
ten des C 64 wie ein normales Basic-Programm mit »LOAD 
”Drucker”,8« geladen. Der LIST-Befehl darf aber auf keinen Fall 
verwendet werden, daes sich um kein eigentliches Programm 
handelt. Statt dessen gibt man nach dem Laden »POKE 
2048-+255,128« ein, wodurch die Sekundäradresse auf 128 
geändert wird. Anschließend wird das so geänderte Drucker- 
File mit »SAVE ”:Drucker’,8« wieder auf die Diskette zurückge- 
schrieben. Die für den Epson-Drucker erforderliche Anpas- 
sung der Commodore-Zeichen an den Standard-ASCIl- 
Zeichensatz kann über die Druckeranpassung des Textomat 
erfolgen. 

Um nun mit Textomat und dem Centronics-Treiber zu arbei- 
ten, muß stets als erstes das Treiberprogramm aus der Ausga- 
be 6/84 geladen und mit »SYS 724« initialisiert werden. Dann 
lädtman das Textomat-Hauptprogramm mit »LOAD "T.OBJ”,8,1« 
und startet es mit »SYS 4108«. An diesen SYS-Befehl sollte 
man sich beizeiten gewöhnen, da der normale Start mit SYS 
4096 den Kopierschutz aktiviert, der das Directory jeder »un- 
befugten« Diskette löscht. 

Der Centronics-Drucker kann jetzt wie ein Commodore- 
Drucker angesprochen werden, nachdem die ASOIl- 
Anpassung und die Anpassung der Steuerzeichen vorgenom- 
men wurde. 

Zu bemerken wäre noch, daß diese Vorgehensweise mit der 
83er Textomat-Version erprobt wurde und das Funktiönier 
mit neueren Versionen nicht garantiert ist. (Werner Weigelt) 


POKESs für den VC 20 


-POKE 199,1 Wirkung wie RVS ON 

POKE 199,0 Wirkung wie RVS OFF 

POKE 214,X Setzt Cursor um X Stellen nach unten 

POKE 774,0 Listschutz (Listet nur Zeilennummern) 

POKE 774,27 Listschutz (Listet nur Unsinn) 

POKE 774,26 Listschutz aus 

POKE 775,1 Listschutz (VC 20 stürzt ab) 

POKE 775,200 Listschutz (»Error« nach erster Zeile) 

POKE 775,199 LIST wieder normal 

POKE 776,221 Verweigert Befehlsausführung 

POKE 777,1 Cursor »HOME« nach jedem Befehl 

POKE 777,199 Hebt vorherigen POKE wieder auf 

POKE 788,194 RUN/STOP-Taste abschalten 

POKE 788,191 RUN/STOP-Taste wieder in Betrieb 

POKE 792,2 RESTORE-Taste abschalten 

POKE 792,173 RESTORE-Taste wieder in Betrieb 

POKE 808,128 RUN/STOP und RESTORE abschalten 

POKE 808,112 RUN/STOP und RESTORE wieder in Betrieb 

POKE 36864,X Horizontale Bildschirmzentrierung (X=0-59) 

POKE 36865,X Vertikale Bildschirmzentrierung (X=0-156) 

POKE 36866,X Anzahl Bildschirmspalten (X=128 + Spalten) 

POKE 36867,X Anzahl Bildschirmzeilen (X=2-46) 

POKE 36869,242 Umschalten auf Kleinschriftmodus 

POKE 36869,240 Umschalten auf Großschrift/Grafik 

POKE 37148,251 Datasettenmotor aus 

POKE 37148,252 Datasettenmotor ein 

POKE 37150,2 Setzt RESTORE-Taste außer Betrieb 

POKE 37150,130 Setzt RESTORE-Taste wieder in Betrieb 
(Herbert Lickes) 
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Reset-Helfer für C 64 


Das Betriebssystem des C 64 enthält ab der Adresse 
$FDO2 ein Unterprogramm, das im Steckmodulbereich ab 
$8000 nach der Zeichenfolge »CBM80« sucht. Nach dem 
Einschalten des Computers oder nach einem Reset wird die-. 
ses Unterprogramm jedesmal aufgerufen. Werden ab der 
Adresse $8003 die Zeichen »CBM80« gefunden, dann wird 
nicht zum Basic-Start gesprungen, sondern das Betriebssy- 
stem nimmtan, daß ein Modul eingesteckt ist, holtsich aus der 
Speicherzelle $8000/$8001 die Startadresse des Modulpro- 
gramms und verzweigt dorthin. 

Das kleine »Reset-Helfer«-Programm (Listing) nutzt dies 
aus, indem es die genannten Speicherstellen in geeigneter 
Weise abändert. Es schreibt die »CBM80«-Zeichenfolge ab 
$8003 ins RAM und läßt die Speicherstellen $8000/$8001 
auf den Basic-Warmstart zeigen. 

Wenn man jetzt einen Reset auslöst, kommt man wie ge- 
wohnt aus allen »abgestürzten« Programmen heraus, ein vor- 
handenes Basic-Programm bleibt aber erhalten. 

| (Henning Zipf) 


REM *** RESET-HELFER C 64 #*** 

REM 

REM HENNING ZIFF 

REM KIRCHSTR. 8 

REM 59086 RIEDSTADT 5 

REM TEL. (96158) /72453 

REM 

FOR I=i TO 9 

REAB D 

FOKE 32767+1,D 

NEXT I 

FOKE 535282,14:POKE 53281,6 

PRINT CHR$ (147); CHR# (5) 
SSE2-PRINT" C 654 CHANSED RESET VELTOR" 

ö- PRINT 

PRINT" &4 K RAM SYSTEM 

ES FREE" 

PRINT 

NEW 

DATA 9,0,255,9,195,194,295,56,48 

REM ERST SAVE, DANN RUN ! 


Listing »Reset-Helfer« für den C 64 


<BBD2> 
en SP, 
<D71> 
2? 
200: 
<x193> 
947° 
<B52> 
<122> 
1869} 
“147° 
2509: 
1777 
176: 
a Fe 
38911 BASIC BYT 

<998: 
198: 
177° 
SELL, 


138: 


Einfacher Reset-Schalter selbstgebaut 


Sehr preiswert und einfach kommt man im Selbstbau zu ei- 
nem Reset-Schalter, wenn man sich im Elektronikfachge- 
schäft einen sechspoligen Diodenstecker und einen Miniatur- 
Tastschalter besorgt. Der Tastschalter wird zwischen die Pins 
2 und 6 des Diodensteckers gelötet (siehe Bild). Zur Pinbele- 
gung vergleiche auch Seite 142 im C 64-Handbuch. Der so 
präparierte Diodenstecker wird nun in den seriellen Port des 
C 64 beziehungsweise VC 20 gesteckt. Falls der Port bereits 
von Floppy oder Drucker belegt ist, kann der Stecker natürlich 
auch in die freie Buchse des entsprechenden Zusatzgerätes 
eingesteckt werden. Auf Knopfdruck wird nun in jedem Fall 
wieder der Einschaltzustand des Computers hergestellt. 

Die Kosten für Stecker und Taste betragen zusammen etwa 
4 Mark. (Henning Zipf) 


Einfacher 
Reset-Schalter 
selbstgebaut 


Hier löten 
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Die Floppy 1541 


Schon seit längerem angekün- 
digt, ist es dieser Tage endlich 
auf den Markt gekommen: Das 
Buch über die 1541l-Floppy von 
Karsten Schramm, der den Le- 
sern des 64’er-Magazins als Au- 
tor des Floppy-Kurses kein Un- 
bekannter ist. Hier plaudert ein 
Profi aus seiner Trickkiste. Denn 
bei diesem Floppy-Buch wurde 
der Schwerpunkt auf die The- 
men gelegt, bei denen andere 
aufhören. 


Und so erfährt man dann in 
lockerem Stil, wasin dem Disket- 
tenlaufwerk wirklich abläuft, 
und wie man es geschickt mani- 
pulieren kann. Kein Blatt vor den 
Mund genommen wird, wenn es 
um  Software-Schutzmethoden 
geht: Vielleicht ein Ärgernis für 
den einen oder anderen Soft- 
warehersteller, aber nützlich für 
den ambitionierten Anwender, 
der seine selbstgeschriebene 
Software kopiersicher machen 
will. 


Dennoch ist das vorliegende 
Buch nicht nur für Profis geeig- 
net: Wer bisher nur die Befehle 
LOAD und SAVE mit seiner 1541 
in Verbindung bringen konnte, 
der erfährt hier, wıe man se- 
quentielle, relative und 
Direktzugriffs-Dateien. realisie- 
ren und ausnutzen kann. 

Einige der weiteren Themen: 
Fehler im Commodore-DOS 
werden schonungslos offenge- 
legt. Der serielle Bus wird unter 
die Lupe genommen und nach 
Hypra-Load-Manier beschleu- 
nigt. Methoden zur Rettung von 
verlorengegangenen Daten und 
fehlerhaften Blöcken werden 
vorgestellt. Und dies sind noch 
längst nicht alle der angespro- 
chenen Bereiche. 


Das Allerbeste an diesem, 


Buch ist allerdings das doku- 
mentierte Listing des 184l- 
ROM. Es ist fast zu schön um 
wahr zu sein, wie gründlich die 
Dokumentation vorgenommen 
wurde, denn sie läßt sich fast 
schon wie ein zusammenhän- 
gender Text lesen. Praktisch je- 
der einzelne Maschinenbefehl 
wurde mit einem erläuternden 
Text versehen, weiter gibt es zu 
jeder der rund 400 Einzelrouti- 
nen des DOS einen kleinen ein- 
leitenden Text, dem dann die 
ausführliche Dokumentation ne- 
ben dem Assembler-Listing 
folgt. 

Die Dokumentation, die fast 
die Hälfte des Buches in An- 
spruch nimmt, wird von einer 
ebenso ausführlichen RAM-Be- 
legung ergänzt. Mehrere nützli- 
che Programme und ein aus- 
führliches Stichwortverzeichnis 
runden das äußerst positive Ge- 
samtbild ab. In Vorbereitung ist 
eine Diskette mit allen abge- 
druckten und einigen zusätzli- 
chen Programmen. Das eindeu- 


88 Zur 


hochauflösunde Grafik im Mul- 


tige Urteil: Ein Floppy-Buch, wie 
manessich besser kaum vorstel- 
lenkann. Von seiner Qualitäther 
gesehen hat es gute Chancen, 
das Standardwerk über die 1541 
zu werden. 

(Boris Schneider/ev) 
Info: Karsten Schramm, Die Floppy 1541, 


Markt & Technik 1985, 430 Seiten, ISBN 
3-89090-098-4, 49 Mark 


Grafik & Musik auf 
dem Commodore 64 


Das Thema Nummer Eins auf 
dem Commodore 64, zumindest 
was die Bücherproduktion an- 
geht, ist immer noch die Grafik. 
Im vorliegenden Buch »Grafik & 
Musik auf dem Commodore 64« 
wird dieses Thema zusammen 
mit den akustischen Fähigkeiten 
sehr ausführlich und mit vielen 
Beispielen versehen erklärt. Da- 
bei werden nur Basic-Grund- 
kenntnisse vorausgesetzt. Gera- 
de den Anfängern, die vom ori- 
ginal Commodore-Handbuch 
stark enttäuscht worden sind, 
wird hier auf fast 340 Seiten eini- 
ges geboten. Von der einfachen 
PRINT-Grafik über Sprites und 


Spaß an Mathe mit 
dem Commodore 64 


Endlich einmal ein Buch, das 
die Mathematik für Computer 
nicht von der bierernsten Seite 
her angeht. Das Konzept von 
»Spaß an Mathe mit dem Com- 
modore 64« hat denn auch die 
Mathematik nur als Aufhänger: 
Tatsächlich wird gezeigt, wozu 
man den Computer außer »Spa- 

ce Invaders« und »Impossible 
Mission« noch benutzen kann. 

Daß dabei dann auch noch ei- 
ne Vielzahl gut dokumentierter 
und wirklich nützlicher Pro- 
grammlistings herausspringt, ist 
ein weiterer Pluspunkt. Die 
wichtigsten Listings sind eine 
Grafik- und eine Mathematik- 
spracherweiterung, die sich 
durchaus mit kommerziell ver- 
triebener Software messen kön- 
nen. 

Einziger Nachteil: Die beiden 
arbeiten nicht zusammen. Dafür 
ist das Eintippen der doch recht 
umfangreichen Listings recht 
komfortabel gehalten worden: 
Im Anhang des Buches befindet 
sich ein Programm, das die Ein- 
gabe enorm erleichtert und ge- 
gen Fehler absichert. 

Auf den beiden Spracherwei- 


ticolormodus, von einfachen 
Piepston über Klangeffekte bis 
zum Musikstück und der Kombi- terungen aufbauend werden 


nation dieser Dinge, wird die (ann einige mathematische Pro- 


Thematik hier voll ausgeschöpft. TE 
ae behandelt, die nicht ge- 
Sehr gefallen hat dab&Fau rade zum Schulalltag gehören, 


derlockere Stil, indem das Buch RE 3 
gehalten ist. Außerdem wird be- a nat 


De en a oder Populationsprobleme. 
gr Auch ein Funktionsplotter darf 


EZ a Ze ee natürlich nicht fehlen. Und damit 
I I p man auch wirklich was lernt, 


zu verstehen, mußmansichnicht „ind alle Listings vollständig do- 
erst durch langwierige Erklä- kumentiert (auch die Assem- 
rungen des Binärsystems kämp- blerlistings). 

fen, sondern arbeitet vorerst mit Fusstzlich werden stanalwei- 
einem Spriteentwurfsblatt, das se Grundlagen über En C 64 


alle wichtigen Daten enthält. Na- 
SE : 7 und zahlreiche Tips und Tricks 
türlich wird später genau auf die vermittelt. Beim Funktionenplot- 


Arbeitsweise des VICs einge- = EL 
ER - ter erfährt man zum Beispiel, wie 
en En man Fehlermeldungen abian- 
gen kann, oder wie sich selbst- 


kann dann jedoch anhand des verändernde Programme per 


schon ausgeführten Beispiels Tastaturpuffer programmieren 
gelernt werden. lassen 


Einen einzigen kleinen Haken Man tut sich also nicht schwer, 


ee = = später eigene, leistungsfähige 
Basic-Ebene gearbeitet wird, DeEmassche Rene m 
nero osmameeaee schreiben. Natürlich darf man 
dezuin POKE und DATA. Orgien nicht alstotaler Anfänger an das 
aus, die man aber dank der gu- BD Neengenen ne sohe 
ten Dokumentation in den Griff sich schon etwas mit den Basic- 

Befehlen auskennen, und auch 


kriegen kann. Viele Tabellen, (sn Mut haben, erste Kontakte 
Entwurfsblätter und Register- nit Maschinensprache aufzu- 


übersichten bilden einen sehr 

: nehmen. Ä 
umfangreichen Anhang, den Dann bringt einem dieses 
selbst der inzwischen weit for- „uch aber eine ganze Menge 
geschrittene Programmierer jornt man doch seinen Commo- 
gerne als Nachschlagewerk be- (ore 64 am praktischen Beispiel 
nutzen wird. Alles in allem ein kennen. Man merkt deutlich 


empfehlenswertes Buch, fürdas (aß hier als Autor ein Lehrer am 
die 38 Mark sicherlich nicht zu Ne Kan 


viel sind. (Boris Schneider) 


(Boris Schneider) 
Info: Stan Krute, Grafik & Musik auf dem 
Commodore 64, Markt & Technik 1984, zir- 
ka 340 Seiten, 38 Mark. 


Info: Holger Danielsson, Spaß an Mathe mit 
dem Commodore 64, Sybex 1985, 380 Seı- 
ten, Preis: 32 Mark 


Mathe für die Oberstufe. 
...aufgezeigt am 
Beispiel Commodore 64 


So lautet der recht vielver- 
sprechende Titel eines neuen 
BuchesausdemIWTV\Verlag, das 
auch durch einen dem sSchüler- 
geldbeutel angepaßten Preis 
(28 Mark) besticht. 

Aber damit sind leider auch 
fast alle positiven Seiten dieses 
Buches aufgezählt. Man erhält 
nämlich nichts weiter als 14 un- 
dokumentierte und teilweise 
recht lange Programmlistings 
minderer Qualität. 

Ein Beispiel: »Kurvendiskus- 
sion für Polynome zweiten Gra- 
des«. Wer die 13 Druckseiten ab- 
getippt hat, kann sich nun zu je- 
dem solchen Polynom die Sym- 
metrieeigenschaften, Nullstel- 
len, Extremwerte und Wende- 
punkte sowie das Monotonie- 
und Krümmungsverhalten aus- 
geben lassen. 

Dummerweise hat ein Poly- 
nom zweiten Grades jedoch we- 
der Wendepunkte noch ist es 
punktsymmetrisch, so daß die 
entsprechenden Erklärungen 
und Berechnungen im Pro- 
gramm völlig nutzlos sind. 

Ein Nutzen daraus könnte al- 
lenfalls vielleicht gezogen wer- 
den, wenn man das Programm 
selber auf andere Funktionen 
erweitert oder umschreibt, was 
allerdings durch das Fehlen jeg- 
licher Dokumentation stark er- 
schwert wird. 

Es geht aber noch weiter: Man 
scheute sich nicht, als weiteres 
Listing eine »Kurvendiskussion 
mit Integration für Polynome 
zweiten Grades« abzudrucken. 
Man ahnt was kommt: Dasselbe 
Programm noch einmal, dann al- 
lerdings um einen Unterpro- 
grammpunkt und auf 20 Druck- 
seiten erweitert. 

Vorhanden ist übrigens noch 
eine Kurvendiskussion von Poly- 
nomen dritten Grades (ohne In- 
tegration). Eine anspruchsvolle 
Kurvendiskussion kann mit den 
abgedruckten Programmen 
nicht durchgeführt werden. 
Ähnlich verhält es sich auch mit 
den diversen Äbleitungs- und 
Integrationsprogrammen, die 
jeweils nur recht uninteressante 
und zudem leichte Einzelfälle 
behandeln. Und auch die Pro- 
gramme, die sich mit der Matri- 
zenrechnung beschäftigen, 
decken nur einen kleinen Be- 
reich ab. Und schließlich seı zu 
den begleitenden Texten ge- 
sagt, daß sie viel zu kurz und, 
oberflächlich sind. 

Langer Rede kurzer Sinn: Die 


.28 Mark wären bei einer Mathe- 


matiknachhilfe besser angelegt. 
(Boris Schneider) 


Info: J. Merget, Mathe für die Oberstufe, 
IWTVerlag 1984, 150 Seiten, 28 Mark. 
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Dateiverwaltung C 64 





Vergleichstest: 





7 Dateiverwaltungen 


auf einen Blick 





Daten zu verwalten gehört neben der Textverarbei- 
tung zum Hauptanwendungsgebiet eines Computers. 
Um Ihnen eine Übersicht zu vermitteln, stellen wir 

die sieben bekanntesten Programme vor. 





Der Computer hilft bei der Verwaltung Ihrer Daten. 


unmöglich alle Einzelfunktionen 

sämtlicher Produkte aufgeführt 
werden. Einige Grundfunktionen 
(wie zum Beispiel das Eingeben, An- 
dern, Löschen und Ausgeben von 
Datensätzen) werden deshalb als 
selbstverständlich vorausgesetzt. 
Im wesentlichen wird jedoch gezielt 
auf solche Besonderheiten einzel- 
ner Produkte hingewiesen, die nicht 
gleichermaßen zum Standard gehö- 
ren. 


I: diesem Kurzvergleich können 


Datamat 


Bereits ım August '83 ıst die erste 
Version von Datamat (aus dem Haus 
Data Becker) auf den Markt gekom- 
men. Laut Data Becker soll dieses 
Programm bereits 15000 mal im Ein- 
satz sein, was sicher auch auf den 
recht günstigen Preis zurückzufüh- 
ren ist. 

Die hier getestete neue Version 
(sie wird seit zirka August 1984 aus- 


118 San 


geliefert) ist gegenüber der alten so- 
wohl um einiges schneller gewor- 
den (durch Programmierung In Ma- 
schinensprache) als auch besser 
gegen Abstürze gesichert. Mit der 
alten Version erstellte Masken und 
Dateien können übernommen wer- 
den. Die Pointer-, Auswertungs- und 
Indexdatei müssen Jedoch erneuert 
werden. 

Durch ein gut gegliedertes deut- 
sches Handbuch und eine komforta- 
ble Menüsteuerung wird auch der 
Einsteiger zum Erfolgserlebnis kom- 
men (Bild |). 

Generell in allen Programmteilen 
gt: 
Fl-Iaste = 
TURN) 
F2-Taste = Abbruch (letztes Menü) 
Leertaste = Springen ım Menü 

Die Erstellung von Masken ist ein- 
fach und problemlos. Die minimale 
Feldlänge von zwei Zeichen gestat- 
tet leider keine Definition von ein- 
stelligen Feldern. Dagegen ist es 


Auslösetaste (wie RE- 


sehr angenehm, daß pro Satz bis zu 
50 Felder definiert werden können. 
Die Anzahl der möglichen Datensät- 
ze hängt von der Länge des Index- 
feldes und der Länge des einzelnen 
Satzes (maximal 2000) ab. Das Pro- 
gamm bietet umfangreiche Such- 
funktionen: 
— Schnelles Suchen über das Index- 
feld 
— Suchen über Index mit Joker 
(Name=M*) 
— Suchen nach beliebigen Kriterien 
Bei der letzten Funktion sind meh- 
rere Kriterien kombinierbar. Es 
kann auch jedem Suchfeld ein Ver- 
gleichsoperator wie gleich, kleiner, 
größer, kleiner gleich, größer 
gleich, ungleich zugeordnet wer- 
den. Interessant gelöst ıst auch der 
Intervall-Vergleich von — bis, bei 
dem mit zwei Bildschirmebenen ge- 
arbeitet wird. Die ausgewählten Da- 
tensätze können mehrstufig umsor- 
tiert werden (Pointer-Datei als Hilfs- 
datei). Die Ergebnisse sind am Bild- 
schirm leider nur einzeln abzurufen, 
können jedoch als frei definierbare 
Liste verdichtet auf Drucker ausge- 
geben werden. Diese Listengestal- 
tung ist sehr komfortabel. Durch ho- 
rizontales Verschieben wird das Li- 
stenformat auch am Bildschirm als 
ganzes erkennbar. Für jede beliebı- 
ge Spalte kann außerdem eine Sum- 
menbildung durchgeführt werden. 
Uber die Menüpunkte »Datei aus- 
werten« und »Floppy« kann eine Da- 
teı mit neuer Feldanordnung er- 
zeugt werden, die dann mit einem 
Textverarbeitungsprogramm wel- 
terverarbeitet werden kann. Wie 
bei der Textverarbeitung ist auch 
bereits ım Datamat ein deutscher 
Zeichensatz wählbar. 


Datenmanager 64 


Die deutsche Beschreibung ist leı- 
der genauso dürftig wie manes von 
Commodore-Handbüchern eben 
gewohnt ist. Sie umfaßt ganze 19 Sei- 
ten. Zum Glück ist das Produkt 
selbst besser. Nach dem Start er- 
scheint ein umfangreiches Menü 
(Bild 2). Die Auswahl erfolgt durch 
Eingabe des jeweiligen Anfangs- 
buchstabens. Auch ohne Menü kann 
im weiteren jederzeit ein Komman- 
do direkt gegeben werden oder mit 
»H« (Help) zum Menü gesprungen 
werden. 

Zum Aufbau einer Datei werden 
zunächst alle Felder (maximal 10!) 
des Datensatzes definiert: Feldna- 
me, Länge (maximal 79), Typ (a/n = 
alphanumerisch/numerisch), Index 
(j/n). Es sind maximal drei Indexfel- 
dermöglich. Aufdie Feldanordnung 
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Bild 1. Eines der vielen Menüs des Datamat 


in der Eingabemaske hat man kei- 
nen weiteren Einfluß, sie erfolgt au- 
tomatisch zeilenweise. Die Datei mit 
maximal 1000 Sätzen kann auch über 
mehrere Disketten verteilt werden. 
Das Programm bietet neben dem 
Suchen über eines der Indexfelder 
auch die Möglichkeit, nach mehre- 
ren Kriterien auszuwählen (UND- 
Verknüpfung). Hinter dem Suchbe- 
griff kann auch ein logischer Opera- 
tor wie kleiner, größer, gleich ange- 
geben werden. Eine Sortierung ist 
nur über eines der Indexfelder 
möglich. Durch entsprechende Vor- 
einstellung im Menüpunkt »Parame- 
ter«ist auch die Ausgabe von geord- 
neten Listen oder die Erstellung von 
Adreßaufklebern möglich. Interes- 
santistder Änderungsmodus für nu- 
merische Felder: Neben Über- 
schreiben ist hier auch die Ände- 
rung um einen absoluten Wert oder 
eine prozentuale Änderung mög- 
lich, zum Beispiel Stück: +20 (Zubu- 
chen zum Lagerbestand ohne Kopf- 
rechnen) oder Preis: +3% (Erhö- 
hung des gespeicherten Preises). 
Der Datenmanager besitzt außer- 
dem eine einfache, integrierte Text- 
verarbeitung mit einer maximalen 
Zeilenlänge von 60 Zeichen und eı- 
ner maximalen Textlänge von zirka 
vier Schreibmaschinenseiten. Mit 
»'« können auch Felder zur Erstel- 
lung von Serienbriefen definiert 


werden. 
Datei 64 


Die Programmadiskette wird ohne 
Handbuch nur mit zwei Seiten Kurz- 
information ausgeliefert. Nach dem 
Laden des Programms erscheint 
der sogenannte »Hauptverteiler«, 
ein auf die Funktionstasten abge- 
stimmtes Menü (Bild 3). Mit der 
Fl-Taste bekommt man eine äußerst 
knappe Erklärung der Programm- 
bedienung. Zwei Maskendefinitio- 
nen werden bereits mitgeliefert, ei- 


Ausgabe 7/Juli 1985 





ne Änschriftenverwaltung und ein 
Bücherarchiv. Möchte man eine ei- 
gene Anwendungerstellen, so ıst zu- 
nächst ein Datensatz zu definieren: 

Feldnamen, Eingabeart (alpha, 
Betrag, Datum etc.) und Feldlänge. 
Bei Datums- und Uhrzeitieldern 
wird sogar eine Plausibilitätskontrol- 
le durchgeführt. 

Danach muß für jedes Feld die ge- 
naue Position festgelegt werden. Au- 
ßerdem können noch Überschrifts- 
und Titelzeilen definiert werden. 
Bevor die Dateneingabe beginnt, 
wird eine RÜELSHEERT sreitt 

Am Beispiel des Bücherarchivs 
sollen nun die Möglichkeiten dieses 
Programms kurz erläutert werden. 
Im Datensatz sind die Felder Buchti- 
tel, Autor, Sachgebiet, Stichworte 
und Archivnummer gespeichert. 
Um einen Satz wiederzufinden, muß 
erst angegeben werden, nach wel- 
chem Feld gesucht werden soll, zum 
Beispiel (B) = Autor. In die dann er- 
scheinende Zelle wird der Name 
eingegeben. Für die Suche kann 
auch ein Intervall von — bis vorge- 
geben werden. Die Ergebnisse las- 
sen sich einzeln oder als Liste aus- 
drucken. Eine Gesamtliste kann 
auch nach einem bestimmten Feld 
sortiert werden. Für die Liste lassen 
sıch bestimmte Felder untiter- 
drücken, für Jede Spalte Ist auch er- 
ne Summenbildung möglich. 


SM-Adreva/64 


Das Programm wird mit einer 
kurzgefaßten deutschen Beschreı- 
bung, leider ohne Stichwortver- 
zeichnis, ausgeliefert. Dafür wird jJe- 
doch neben der rein verbalen Be- 
schreibung sehr schön in kleinen 
Ablaufplänen die logische Reihen- 
folge von Funktionstasten und Da- 
teneingaben erläutert, so daß sich 
auch der Anfänger gut zurechtfin- 
det. Aus dem Start-Menü lassen sıch 
zunächst Commodore- oder deut- 


te Listen 
3900000000000 


Bild 2. Das Hauptmenü des Datenmanagers 


Mextverarbeits. 
Bea 





Kommando *_ 


re 


sche Tastatur, die Druckparameter 
und die Farbeinstellungen wählen. 
Danach kann die Adreßeingabe be- 
ginnen. 

Die fest definierte Maske (Bild 4) 
enthält neben den üblichen Adreß- 
zellen noch die Felder Kunden- 
Nummer (3-stellig), Suchbegriff 
(10-stellig), Telefon- und 'Telex-Num- 
mer, sowie fünf weitere Zusatz-Iext- 
zellen. 

Am unteren Bildschirmrand ist 
während der gesamten Verarbei- 
tung die jeweilige Funktionstasten- 
belegung eingeblendet, zum Ber- 
spiel speichern, löschen, drucken, 
Programmende. 

Erfaßte Adressen können über 
die Kunden-Nummer oderüber den 
Eintrag im Feld »Suchbegnriff« wıe- 
dergefunden werden. Von einem 
gefundenen Satz kann man jeweils 
vor- und zurückblättern. 

Der Ausdruck einer Adresse ist 
fest definiert und gibt jedes Feld ın 
einer neuen Zelle aus. Standardmä- 
Rig können auch Adreßlisten oder 
Adreßaufkleber erstellt werden. 
Dabei ist die Auswahl über Kunden- 
Nummer (von-bis) oder Suchbegriff 
(von-bis) möglich. 

Die Ausgabe erfolgt in der ent- 
sprechenden Sortierung. 

SM-Adreva/64 kann kombiniert 
werden mit der Textverarbeitung 
SM-Text/64. Der mit der Textverar- 
beitung erstellte Brief kann dann 
Kürzel enthalten, für die die entspre- 
chenden Daten aus der Adreßver- 
waltung übernommen werden. Da- 
mit lassen sich auf einfache Weise 
auch Form- und Serienbriefe erstel- 
len. 

SM-Adreva/64 ist ein Programm, 
das zwar speziell auf die Adreßver- 
waltung zugeschnitten ist, das aber 
dafür durch gute Benutzerführung 
besonders einfach zu bedienen ist. 

Bereits beim Lesen des umfang- 
reichen Handbuchs wird klar, daß 
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Dateiverwaltung C 64 


Bild 3. Datei 
64 ist das 
preisgünstigste 
Programm 


Hauptverteiler ——— 


f iWMerkiarung der rogrammbedienung 


+ SMende des Programms ohne Datenverlust 
FoWVerarbeiten der eiınzeinen DatenSstze 


-Ausgabe auf 
-Neueingab®, 
yon 


-Suchen 


SJrüuckeransteyuerung 


-Druckausgabe ein Oder 


- Gag z 
Baatore 7 Bruckparameter einstellen 


-Papierr 


-DBrucke sortiertes 


Bildschirm oder Drucker 
Korrektur oder Löschung 

bestimmten Datensätzen 
wird definzıert 


ausschalten 
+ QuittierungsdruckModus 


Gesamtverzeichnis 


u; cskette fur neue Daten EınE CH 


-Neue 


Kundennummer :123 Suchbegriff:meier 


F>r 7 Burueck / EHendern / Wieueintrag 7 
Anrede:Herr i 
Name 1:Bartholomaus Heier_________ 
Name 2:__ z 
Zusatz:Dipl.-Ing. EFT EEE TREE 


| Str/Pf:Bornröschengagse 13 
ört: 


85888 München 5 


Briefanrede: 
| Sehr geehrter Herr Meier 


Teı.: 757584 
| : 15883 


erbegeschenk: 


:Letztes 
3:Goldkugelschreiber 


Text 5: 


a, ee. — a ITERETT 
En 


ı Speichern:iveschen :drucken :-ende _ 


Bild 4. SM-Adreva beim Anzeigen eines Datensatzes. Auf ein Foto 
zu SM-ISM/64 wurde verzichtet, da der Bildschirmaufbau vom 


Benutzer selbst programmiert werden muß. 


das Produkt ISM/64 (Index Sequen- 
tial File Manager) sich nicht ohne 
weiteres für den Anfänger eignet. 
Um all die vielfältigen Möglichkei- 
ten zu nutzen, muß man schon tiefer 
einsteigen. Dem Profi dagegen wird 
bereits jetzt das Herz höher schla- 
gen. ISM/64 ist vollständig ın 6502- 
Maschinensprache geschrieben 


SM-ISM/64 


und läuft außer auf dem C 64 auch 
aufdem 8032 und 8096 von Commo- 
dore. Hier zunächst einige wesentli- 
che Eigenschaften: 

— variable oder feste Satzlänge von 
2 bis 31875 Byte 

— bis zu 125 Felder pro Satz 

— Felder fester oder variabler Län- 
ge 

— Feldlänge maximal 255 Byte 

— maximal 40 Schlüsselfelder 

— Schlüssel können auch nachträg- 
lich definiert oder gelöscht werden. 
— Schlüssel können eindeutig oder 
mehrdeutig sein. 


120 an 


Diskette 





oder Daten löschen 


ni eemennen 


Mode 
U 1.817 


KIEL EIFEL 


1,3 J% 
select 
Find 
Qutput 
Lalc 
Report 
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VızaStar:tutor 


General V 3867 


Menu 
FEinleitun: 
Buchhaältun 
Graphik 


- Forsein 


TEN TON 


| 
| 
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mel len) 


- Datums 





Demo 
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— maximal 10 ISM-Dateien können 
dem Programm gleichzeitig zur Ver- 
fügung gestellt werden. 
— ISM kann auch ın ein Basiıc-Pro- 
gramm eingebunden werden. 
Insgesamt wird nach diesem Lei- 
stungsumfang deutlich, daß es sich 
bei ISM/64 bereits mehr um eine 
datenbankorientierte Programmier- 
sprache handelt. 


VERS Fe 


87-4154) 


Demo 
Beispiele 


verlassen _ 


Wer sich zunächst überfordert 
fühlt, dem seiempfohlen, das mitge- 
lieferte Beispiel-Programm »Litera- 
turverwaltung« durchzuspielen, um 
mit ISM/64 vertraut zu werden. Der 
verwendete Datensatz besteht aus 
zehn Feldern: ISBN-Nummer, Autor, 
Titel, Buchart, Inhalt, Verlag, Jahr, 
Ort, Preis, Signatur. Die ISBN-Num- 
meristdabeialseindeutiger Schlüs- 
sel, Autor und Titel sind als mehr- 
deutige Schlüssel definiert. Aus den 
Menüs wird Bearbeiten (bb), Anle- 
gen (a) und Neuschreiben (n) ausge- 
wählt, danach können Daten einge- 
geben werden. 

Mit »1l« wird die Funktion Lesen 
aufgerufen. Über den vollen oder 
verkürzten Schlüssel wird auf die 
eingegebenen Sätze zugegriffen. 


uperb ase 


nue 
ic) Precısıon Software, 1983 





Bild 5. Superbase ist das wohl leistungsfähigste 
Dateiverwaltungsprogramm. 


#= RERDY x 


bebrauch der Datenbank | 

- Inforsstionen verschieben 

%& BFfunktionen \ E 

- Autosstisierte frbeit 

Bildschirmmasken Befehle | 
Zellen & Feid Formate | 4° 


Bild 6. Vizastar 
besitzt sowohl 
Tabellenkalkulation 
mit Grafikteil 

als auch 
Dateiverwaltung. 


Mit »z« kommt man jederzeit zum 
Hauptmenü zurück. Ein gefundener 
Satz kann direkt geändert oder ge- 
löscht werden. 

Alles in allem ist ISM/64 ein mäch- 
tiges Progammpaket, das in diesem 
Rahmen gar nicht in allen Einzelhei- 
ten aufgezeigt werden kann, das 
aber auch sehr hohe Anforderun- 
gen an den Anwender stellt, sofern » 
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C 64 Dateiverwaltung 


ket, dasfolgende drei Komponenten 
beinhaltet: Tabellenbearbeitung, 
Dateiverwaltungssystem und Gral- 
kauswertung. 

Im Rahmen dieses Vergleichs 
wird vor allem die Datenbankver- 
waltung genauer untersucht. Eine 
Vizastar-Datenbank ist eine Samm- 
lung von bıs zu 15 Dateien. Ein Da- 
tensatz kann bis zu 8000 Zeichen 
beinhalten und sich über neun »Bild- 
schirmkarten« erstrecken. Die maxı- 
male Feldlänge beträgt 120 Zeichen. 

Alle Vorgänge sind menügesteu- 
ert (SPACE-Taste zum Weitersprin- 
gen, mit RETURN ausführen). Mit 
der EXEC-Funktion können aber 
auch ganze Befehlssequenzen vor- 
programmiert werden. 


Vizastar 64 


Die Datensatzfelder werden im 
elektronischen Arbeitsblatt festge- 
legt, Jedem Feld wird ein Buchsta- 
bencode zugeordnet (A-BL). Eskann 
ein Schlüsselfeld mit 30 Zeichen 
Länge definiert werden, außerdem 
Formelfelder und beliebige Daten- 
felder (maximal 120 Zeichen). Mit 


ADD, REPLACE und DELETE wer- 
den Datensätze eingegeben, geän- 
dert oder gelöscht. Der Zugniff er- 
folgt über den Schlüssel (KEY) oder 
über andere Kriterien (DATA USE 
CRITERIA), die einfach ın die Fel- 
der eingegeben werden (inklusive 
Vergleichsoperatoren oder Joker). 
Mit dem Befehl DATA TRANSFER 
lassen sıch Daten zwischen elektro- 
nıschem Arbeitsblatt und Datensatz 
austauschen. Mit EXPORT können 
Daten an andere Programme wie 
zum Beispiel die Textverarbeitung 
Vızawrite 64 übergeben werden, 
umgekehrt mit IMPORT. Mit RE- 
PORT und RANGE lassen sıch belıe- 
bige Felder für den Listenausdruck 
zusammenstellen. 


Neben der Datenbank-Kompo- 
nente verfügt Vizastar 64 über eine 
sehr leistungsfähige Tabellenbear- 
beitung inklusive Invertierung und 
Windowr-lechnik. Der Grafikteil um- 
faßt standardmäßig Balken- und Li- 
niendiagramme. Mit einem Grafik 
Zusatzprogramm sınd farbige Ku- 
chengrafik und 3D-Balkengrafik 
mödlıch. 


Insgesamt bietet Vizastar 64 eine 
Vielzahl von Möglichkeiten mit an- 


genehmer Benutzerführung ın allen 
Programmteilen. 

Ein derartiger Vergleich unter- 
schiedlichster Datenbanksysteme 
kann als Ergebnis sicher keinen ein- 
deutigen Favoriten oder Verlierer 
präsentieren. Er kann nur gleichzei- 
tig über mehrere Produkte Informa- 
tionen liefern, dıe dem einzelnen In- 
teressenten die Möglichkeit geben, 
systematisch zu untersuchen, was 
für seinen speziellen Anwendungs- 
fall überhaupt in Frage kommt. Ge- 
wisse Mindestvoraussetzungen 
müssen sicher erfüllt sein, damit 
sich ein Problem mit einem dieser 
Produkte überhaupt lösen läßt, da- 
neben sollte natürlich ein vernünftı- 
ges Preis-Leistungsverhältnis Be- 
rücksichtigung finden. Weitere An- 
gaben entnehmen Sie bitte der Ta- 
belle. 


(Peter Häuslein/gk) 


Bezugsquellennachweis: 

Commodore, Lyonerstr.38, 6000 Frankfurt 71 
(Datenmanager) 

Data Becker, Merowingerstr.30,4000 Düsseldorf ] 
(Datamat, Superbase) 

Dynamics, Große Bäckerstr. 11, 2000 Hamburg | (Datei 64) 
Interface Age, Josefsburgstr.6, 8000 München 80 (Vizastar) 
für Schweiz: Microtron, Brunnenweg 5, CH-2542 Pieterlen 
(Vizastar) 

SM Software AG, Scherbaumstr.33, 8000 München 8 
(SM-Adreva, SM-ISM) 
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Promal — Die neue 
Sprache für Profis? 


Wir testeten eine brandneue Programmiersprache 
für den Commodore 64. Promal kommt direkt aus 
Amerika und ist schnell wie Forth, aber übersichtlich 


wie Pascal. 


ie Programmiersprachen für 
D:: Commodore 64 häufen 

sich, und so vergeht kaum ein 
Monat, an dem nicht irgendein Her- 
steller ein neues Produkt als »Die 
Sprache für den Commodore 64« an- 
preist. Meistens handelt es sich 
dann doch aber nur um mehr 
schlechte als rechte Implementatio- 
nen altbekannter Sprachen, die viel- 
leicht noch auf die Grafik- und 
Soundfähigkeiten des C 64 Rück 
sicht nehmen. 

Ein ganz neues Produkt ist dage- 
gen die Sprache Promal, die erst 
letztes Jahr entwickelt wurde und 
nun als erstes in einer Version für 
den C 64 lauffähig vorliegt. Weitere 
Versionen für Apple- und IBM-Com- 
puter sind in Arbeit. Da Promal-Pro- 
gramme auch zwischen verschiede- 
nen Computern austauschbar sind, 
solange nicht auf die Maschinen- 
ebene zugegriffen wird, dürfte da- 
her bald ein breites Software- 
Angebot zur Verfügung stehen. 


Was ist Promal? 


Promal ist die Abkürzung für Pro- 
grammers Micro Applications lan- 
guage und hat überhaupt nichts mit 
Comalzutun. Promal bietet die Mög- 
lichkeit, strukturiert zu programmie- 
ren, ja erzwingt dieses ähnlich wie 
Pascal sogar, ist dabei aber gleich- 
zeitig so schnell und maschinennah 
wie Forth. 

Promal besteht aus drei Teilen: 
Dem Executive, dem Editor und 
dem Compiler. Der Executive ist 
ähnlich einem Interpreter organı- 
siert und enthält den Kern von Pro- 
mal sowie die Input/Output-Routi- 
nen und die Befehle, die direkt aus- 
geführt werden können. Über den 
Executive tritt der Benutzer mit dem 
Promal-System in Verbindung. Edi- 
tor und Compiler werden vom Exe- 
cutive aus aufgerufen. Eine Pro- 
grammierung in Promalistüber den 
Executive nicht möglich, wohl aber 
lassen sich bereits compilierte Pro- 
gramme starten. Eskönnen mehrere 
Programme gleichzeitig im Spei- 
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cher stehen: Promal-Programme 
sind vollkommen relokatibel (im 
Speicher verschiebbar) und können 
so jederzeit zu den schon im Spel- 
cher stehenden Programmen hinzu- 
geladen werden. Der Aufruf eines 
Programmes erfolgt einfach durch 
die Nennung seines Namens. Befin- 
det sich das entsprechende Pro- 
gramm nicht im Speicher, wird es 
automatisch nachgeladen. 

Die Bedienung des Executive ist 
äußerst komfortabel: So sind zum 
Beispiel die Funktionstasten belegt, 
und es lassen sich schon einmal ge- 
machte Befehls-Eingaben mittels 
Tastendruck zum Korrigieren wie- 


derholen. 
EIER on 


Komfortabler Editor 


Soll nun ein neues Promal-Pro- 
gramm geschrieben werden, dann 
wird zunächst der Editor aufgeru- 
fen. Es handelt sich dabei schon fast 
um ein kleines Textsystem mit horı- 
zontalem Scrolling (80 Zeichen pro 
Zeile), schnellem vertikalem Scrol- 
ling in beide Richtungen, Funktions- 
tastenbelegung, ausführlichem Be- 
fehlssatz und vielen anderen De- 
tails. Hat man eine Weile mit diesem 
schnellen und komfortabeln Editor 
gearbeitet, so istmanrecht erstaunt, 
wennmanimHandbuchliest, daßer 
vollständig in Promal geschrieben 
wurde. Der Editor istsomiteinesder 
besten Beispiele für die Leistungsfä- 
higkeit von Promal. 

Ebenso in Promal geschrieben ist 
der Compiler. Es kann wahlweise 
auf Diskette oder im Speicher com- 
piliert werden. Auch hier erstaunte 
die enorme Geschwindigkeit, zu- 
mindest solange keine Diskettenzu- 
griffe notwendig sind. 

Wie sieht nun so ein Promal-Pro- 
gramm aus? Auf den ersten Blick 
glaubt man, es mit einer Mischung 
aus Pascal und Basic zu tun zu ha- 
ben. Es gibt keinerlei Zeilennum- 
mern, aber Einrückungen. In jeder 
Zeile steht nur ein einziger Befehl. 
Zu Anfang eines jeden Promal-Pro- 
grammes steht ein Deklarationsteil, 
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in dem alle Variablen, Funktionen 
und Prozeduren (Unterprogramme) 
ähnlich wie in Pascal definiert wer- 
den müssen. 

Es gibt sehr viele veschiedene 
Kontrollstrukturen: Neben dem oblı- 
gatorischen IF ... ELSE (ohne 'THEN]|) 
oder FOR (ohne NEXT) gibt es auch 
WHILE, REPEAT.. UNTIL, und sogar 
ein CHOOSE, das in etwa dem 
ON..GOTO (Basic) oder dem CASE 
(Pascal) entspricht, aber noch flexi- 
bler ist. 


Bitte einrücken! 


Wer sich fragt, wo das NEXT oder 
das THEN hin verschwunden sind: 
Promal zwingt zu strukturiertem Pro- 
grammieren, weil Einrückungen 
syntaktische Bedeutung haben! Ei- 
ne IF. THEN..ELSE-Abfrage muß in 
Promal folgendermaßen program- 
miert werden: 

IF <Bedingung> 
befehll 
befehl2 


befehlN 
ELSE 

befehll 

befehl2 


befehlN 
befehll 
befehl2 


Wichtig ist, daß die Befehlsgrup- 
pen, die bedingt ausgeführt werden 
sollen, um zwei Stellen eingerückt 
werden. Der Promal-Compiler 
nimmt an, daß die IF..ELSE-Anweı- 
sung zu Ende ist, wenn Befehle nicht 
mehr eingerückt sind. 

Dieses Prinzip gilt auch für alle an- 
deren Kontrollstrukturen. Die aus 
Basic bekannten FOR-NEXT-Schler- 
fen benötigen in Promal kein NEXT 
mehr, das Schleifenende wird am 
Fehlen der Einrückung erkannt. 
Promal kennt allerdings einen Be- 
fehl NEXT, der aber eine andere Be- 
deutung hat. Mit ihm kann an den 
Anfang der gerade bearbeiteten 
Schleife zurückgesprungen wer- 
den. Dies funktioniert nur bei REPE- 
AT.UNTIL und WHILE, nicht bei 
FOR. Das genaue Gegenteil von 
NEXT ist BREAK. Mit diesem Befehl 
wird die gerade bearbeitete Kon- 
trollstruktur ordnungsgemäß abge- 
schlossen und verlassen, es erfolgt 
sozusagen ein GOTO zur nächsten 
nicht eingerückten Zelle. 

Natürlich können Kontrollstruktu- 
ren auch beliebig ineinander ge- 
schachtelt werden, dann sind halt 
mehr Einrückungen notwendig. 

Promal kennt vier verschiedene 
Variablentypen: BYTE, INTeger, 
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WORD und REAL. String-Variablen 
sind nicht vorgesehen, man muß 
sich, ähnlich wie ın Forth, mit Adreß- 
variablen behelfen. Das bedeutet, 
man legt einen String als Bytefolge 
irgendwo ım Speicher ab und weist 
die Anfangsadresse des Strings ei- 
ner Varlablen zu. Über diese Varia- 
ble kann man dann im weiteren jJe- 
derzeit auf den String zugreifen. 

Das mag auf den ersten Blick et- 
was umständlich erschemen, ıst 
aber ın der Praxis sehr flexibel und 
schnell, insbesondere, da es von eI- 
nigen Promal-Standardprozeduren 
unterstüzt wird. 

An Feldvariablen sind nur eindı- 
mensionale Arrays erlaubt. Doch 
damit läßt sich bereits eine ganze 
Menge anfangen. Arrays können 
nämlich an jedem vom Programmie- 
rer vorgesehenen Speicherplatz ab- 
gelegt werden. Beispielsweise kann 
man ein solches Array auf den 
Bildschirm-Speicherbereich legen. 
Durch einfache Zuweisung von Wer- 
ten an Array-Elemente wird dann Je- 
desmal die entsprechende Spel- 
cherstelle im Bildschirm angespro- 
chen. Dabei ergibtsich neben einer 
besseren Übersichtlichkeit des Pro- 
grammesauchnoch ein Zeitgewinn. 


Verbesserte 
Fließkomma-Arithmetik 


Im Gegensatz zu vielen anderen 
Programmiersprachen für den © 64 
wurde bei der Fließkomma-Arith- 
metik in Promal nıcht auf die bereits 
im Basic-ROM vorhandenen Routi- 
nen zurückgegriffen. Promal verfügt 
über eine völlig neue Fließkomma- 
Arıthmetik, die die des Commodore 
64-Basic bei weitem übertrnifit. 
REAL-Variablen haben |l signifikan- 
te Stellen (9 bei Basic), dennoch er- 
folgen alle Berechnungen damit fast 
doppelt so schnell. Damit ist die rei- 
ne Ausführungszeit der Rechenope- 
ration gemeint. Da Promal-Program- 
me immer compiliert werden, ist die 
tatsächliche Geschwindigkeit von 
Programmen noch um ein Vielfa- 
ches höher. 

Allerdings kennt Promal nur die 
vier Grundrechenarten und logı- 
sche Operationen. Funktionen wie 
Sinus oder Logarithmus werden als 
Promal-Source-Code mitgeliefert. 
Nach der Compilation sınd diese ın 
Promal geschriebenen Routinen im- 
mer noch genauer und sogar ein 
wenig schneller als die Original- 
Commodore-ROM-Routinen, was 
wohl ein beeindruckender Beweis 
der Leistungsfähigkeit von Promal 
1St, 

Wer in einem Programm ohne 
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REAL-Zahlen auskommt, kann die 
REAL-Arithmetik vollständig aus 
Promal entfernen und gewinnt so zu- 
sätzlich wertvollen Speicherplatz. 
Compilate (übersetzte Programme) 
können so einen Umfang von bis zu 
35 KByte haben. Der Source-Code 
muß dann allerdings mit einigen 
Tricks geschrieben werden, da der 
garantiert nicht in den Speicher 
paßt. Der Compiler selbst umfaßt 
beispielsweise als Sorce-Code 2400 
Zeilen, benötigt aber compiliert nur 
noch 13 KByte. 

UÜberzeugend ist auch das Kon- 
zept der Prozeduren und Funktio- 
nen. Pascal-Kenner wissen, daß Pro- 
zeduren das Gegenstück zu Unter- 
programmen sind, und daß Funktio- 
nen ein spezieller Typ von Prozedu- 
ren sind, die Parameter an das 
Hauptprogramm zurückgeben. Wie 
in Pascal können Prozeduren und 
Funktionen lokale Variable haben, 
dassind Variable, die nur der Proze- 
dur bekannt sind, und deswegen 
gleiche Namen wie völlig andere 
Variablen im Hauptprogramm ha- 
ben dürfen, ohne daß Konflikte oder 
Fehler auftreten. 

In Promal gibt esnoch eine Unter- 
scheidung bei lokalen Variablen: 
Diese können bei Bedarf ihren In- 
halt bis zunfnächsten. Auff®der Pro- 
zedur behalten. Eine Prozedur kann 
also beispielsweise zählen, wie oft 
sie hintereinander aufgerufen wur- 
de. Dies ist sehr wichtig, wıllman re- 
kursive Funktionen programmıe- 
ren. Rekursion bedeutet, daß eine 
Prozedur oder Funktion sich selbst 
aufruft und ist in Promal beliebig er- 
laubt. Allerdings ist die Rekursions- 
tiefe auf zirka 40 Aufrufe be- 
schränkt, sonst läuft der Prozessor- 
stack über, und das System befindet 
sich in einem »undefinierten Zu- 
stand«, etwas weniger fein auch als 
»Absturz« bezeichnet. 


Schnittstelle zur 
Maschinensprache 


Obwohl Promal bereits unglaub- 
lich schnell ist, hat man trotzdem 
mehrere Schnittstellen zur Maschi- 
nensprache eingebaut, um eigene 
Maschinenroutinen oder solche aus 
dem Basic-ROM ın Promal-Pro- 
gramme zu integrieren. Dabei ist so- 
gar die Kontrolle über die Prozes- 
sorregister (A, X, Y und P) von Pro- 
mal aus vorgesehen. Parameter- 
übergabe kann über gemeinsam 
benutzte Speicherstellen, die Pro- 
zessorregister oder am aller ein- 
fachsten über den Prozessorstack 
erfolgen. Damit ist Promal fast ge- 
nauso maschinennah wie Forth, 
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aber dafür um einiges komfortabler. 

Die drei mitgelieferten Handbü- 
cher, wie üblich in Englisch, umfas- 
sen 250 DIN A4-Seiten und bieten eıI- 
ne umfassende Einführung in die 
Sprache. Da hier sehr viel mit Bei- 
spielen gearbeitet wird, fällt es 
leicht, sich in das Promal-Konzept 
einzuarbeiten. 


Vorbildliche 
Dokumentation 


Eines sei noch zur Erhältlichkeit 
von Promal gesagt: Es gibt drei ver- 
schiedene Promal-Versionen, die 
aber aufwärtskompatibel sind. Die 
Demo-Version umfaßt den komplet- 
ten Sprachschatz und unterscheidet 
sich von der End-User-Jersion nur 
dadurch, daß sıe keine Druckeraus- 
gabe und kein Abspeichern von 
Programmen auf Diskette erlaubt. 
Sie ist also sozusagen nur zum »Reir- 
schnuppern« gedacht. Dafür darf, ja 
soll sie sogar kopiert und an Freun- 
de weitergegeben werden. Wer in- 
teressiert ist, kann sich dann die 
End-UserVersion beim Hersteller 
kaufen und mitdem Programmieren 
voll loslegen. Dieses Konzept kann 
man anderen Anbietern von Softwa- 
re sicher nur zur Nachahmung emp- 
fehlen, da der Anwender die oft 
mals recht teuren Programme dann 
nicht mehr »auf Verdacht« kaufen 
muß, um erst hinterher enttäuscht 
festzustellen, daß das Programm 
nicht seinen Erwartungen ent- 
spricht. Für die Produzenten wırk- 
lich guter Software hätte dieses Ver- 
fahren ebenfalls nur Vorteile — der 
Bekanntheitsgrad erhöht sich, der 
Anwender kann sich ein Bild von 
der Qualität der Software machen. 

Doch wieder zurück zu Promal. 
Die geschriebenen und compilier- 
ten Programme benötigen Immer 
noch den Promal-Executive-leil, um 
lauffähig zu sein. Deswegen gibt es 
noch eine »Developer'sVersion«, die 
zusätzlich den Promal-Kern ın die 
übersetzten Programme einbindet, 
so daß sie auch ohne Promal laufen 
können. 

Zum erstenmal gibt es mit Promal 
eine maschinennahe und dennoch 
einfache und komfortable Sprache 
für Mikrocomputer. Jedem, dem 
Forth zu unverständlich und Pascal 
zu langsam ist, kann Promal nur 
empfohlen werden, denn diese 
Sprache verbindet sozusagen diese 
zwei Programmierwelten miteinan- 
der. (Boris Schneider/ev) 


Info: Promal ist in den verschiedenen Versionen erhältlich 
bei Systems Management Associates, 3700 Computer Dri- 
ve, PO.Box 20023, Raleigh, North Carolina NC. 27619, USA. 
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Forth-wüärts mit M&T-Forth 64 





Inzwischen gibt es fast schon so viele Forth-Versionen für den Commodore 64 wie 
Basic-Erweiterungen. Gerade neu auf dem Markt ist eine Version, die sich strikt 
an den FIG-Standard hält und damit völlige Software-Kompatibilität verspricht. 


enormen Bekanntheitsgrad er- 

reicht. Was vor einem Jahr noch 
ein Geheimtip unter Insıdern war, 
liegt jetzt von den vielen Herstellern 
in den verschiedensten Ausführun- 
gen vor. Das grundlegende Konzept 
der Programmiersprache Forth ist 
von unsschonin früheren Ausgaben 
erläutert worden, daher seien an 
dieser Stelle nur noch einmal die 
wichtigsten Unterschiede zu Basic 
stichwortartig angesprochen: 

Forth ist eine sehr maschinennahe 
Sprache, deren qgrundlegendes 
Prinzip der Stack ist. Alle Berech- 
nungen werden grundsätzlichin der 
Weise ausgeführt, daß zunächst die 
Operanden auf den Rechenstack 
gebracht werden und anschließend 
erst die gewünschte Operation aus- 
geführt wird (ähnlich wıe bei Ta- 
schenrechnern mit der sumgekehr- 
ten polnischen Notation« UPN). Eine 
Addition schreibt sich damit so: 
Slet 

Programmierung ın Forth besteht 
darin, neue Worte zu definieren, die 
bestimmte Funktionen ausführen. 
Beispiel: 

ADDIl 1 + 

Eine Wortdefinition beginnt mit eı- 
nem Doppelpunkt und endet mit ei- 
nem Semikolon. Hinter dem Doppel- 
punkt folgt der Name des neuen 
Wortes, im Beispiel also»ADDk«. An- 
schließend folgen die Befehle (Wor- 
te) die beim Aufrufvon ADD] ausge- 
führt werden sollen. ADDI schiebt 
also die Zahl Eins auf den Stack und 
führt anschließend eine Addition 
durch. Im Endeffekt wird also der 
vor dem Aufruf von ADDl auf dem 
Stack befindliche Zahlenwert um 
eins erhöht. In analoger Weise kann 
man ganze Programmsysteme aus 
immer leistungsfähigeren Forth- 
Worten aufbauen. Forth arbeitet aus- 
schließlich mit Integer-Zahlen. Das 
führt im Zusammenhang mit der 
Compilation aller Eingaben zu sehr 
effizienten Programmen. 

Das neueste Kind auf dem Forth- 
Markt ist eine Version der Markt & 
Technik Verlags AG. M&T-Forth 64 
hält sich, soviel sei hier schon ge- 
sagt, strikt an den Semi-Standard 
der Forth-Interest-Group (FIG). Na- 
türlich finden sich hier sehr viele Be- 
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& orth hat in der letzten Zeit einen 


fehle, die aufden C 64 zugeschnitten 
worden sind. Insgesamt umfaßt das 
Grundvokabular von M&I-Forth 64 
rund 280 Worte. Dazu kommen dann 
einzelne auf der Programmadiskette 
mitgelieferte Programme, die ja bei 
Forth nichts anderes als Befehlser- 
weiterungen sind. 

ME&ET-Forth 64 arbeitet wahlweise 
mit Kassette und Diskette zusam- 
men. Das Prinzip des virtuellen 
Speichers, das heißt, daß sıch alle 
»Screens« (Textabschnitte) auf der 
Diskette befinden, wurde hier aus 
Geschwindigkeitsgründen nicht an- 
gewandt. 


24-KByte-RAM-Floppy 

M&T-Forth 64 simuliert vielmehr 
eine RAM-Disk, die 40 Screens von 
jeweils 16 Zeilen a 38 Zeichen ent- 
hält. Diese RAM-Disk kann jederzeit 
auch teilweise auf Kassette oder der 
echter” Teert werden. 
Ebenso sind schon compilierte 
Spracherweiterungen lad- und spei- 
cherbar. Bei Diskettenbetrieb las- 
sen sich auch Directories listen oder 
der Fehlerkanal lesen und schreı- 
ben. Da außerdem Befehle wie 
OPEN und CLOSE ım Sprachkern 
eingebaut wurden, kann auch eine 
Druckerausgabe recht einfach er- 
folgen. 

Alles was nicht in den Sprachkern 
von Forth gehört, wurde konsequent 
auf die Programmdiskette ausge- 
lagert. Dazu gehören der Forth- 
Assembler, der Zeileneditor sowie 
Grafik- und Sound-Befehlserweite- 
rungen. Diese werden Ja nicht stän- 
dig benötigt, und würden sonst im- 
mer nur Platz im Computer wegneh- 
men. Das Nachladen des Editors 
mag am Anfang etwas umständlich 
wirken, hat dann aber den Vorteil, 
daß er vom Benutzer jederzeit er- 
weitert oder völlig umgebaut wer- 
denkann, ohne den Sprachkern ver- 
unstalten zu müssen. 

Daß Forth recht maschinennah 
und somit schnell ist, ist allgemein 
bekannt. Trotzdem enthalten viele 
gute Forth-Systeme Schnittstellen 
zur Maschinensprache und sogar 
einen Assembler. Ebenso verhältes 
sich bei M&T-Forth 64. Der mitgelie- 
ferte Assembler hat den Vorteil, daß 
in Assembler strukturiert program- 


miert werden kann. Zeitkritische 
Aufgaben können somit elegant und 
übersichtlich realisiert werden. Zu- 
sätzlich zum Assembler wird auch 
ein Forth-Monitor mitgeliefert. Die- 
ser Mini-Monitor kann es zwar nıcht 
mit dem SMON aufnehmen, leistet 
aber sehr gute Dienste, wenn man 
unter Forth schnell mal eine Mög- 
lichkeit braucht, »direkt an die Ma- 
schine« zu gehen. 


Integrierter Assembler 


Der mitgelieferte Editor ist dage- 
gen recht spartanisch. Es ist ein ein- 
facher Standard-Zeileneditor, wie 
ihn fast jede Forth-Version enthält. 
Ein komfortabler Full-Screen-Editor 
wäre zwar wünschenswert, doch 
läßt sich mit dem Zeileneditor auch 
recht gutarbeiten, insbesondere, da 
Forth ja keine Sprache ist, bei der 
man drauflosprogrammieren kann. 

Sehr interessant sind die mitgelie- 
ferten Grafik- und Sound-Befehle für 
Forth. Da ist zum Beispiel ein einfa- 
cher Spriteeditor, (inForth gerade 11 
Zeilen lang) vorhanden. 

Der Grundbefehlssatz wurde ab- 
sichtlich klein gehalten, damit der 
Endbenutzer sich die zusätzlichen 
Befehle an seine individuelle An- 
wendung anpassen kann, ein ın 
Forth ja ganz natürlicher Vorgang. 

Eine Reihe von mitgelieferten zu- 
sätzlichen Beispielprogrammen, 
darunter das Nicht-Standard-Wort 
CASES, dastrotzdem gerne verwen- 
det wird, runden das Gesamtbild 
des M&T-Forth 64 ab. 


Fazit 


Insgesamt gesehen liegt mit M&I- 
Forth 64 eine ForthVersion vor, die 
zwar nicht durch enorme Befehls- 
vielfalt glänzt, wie andere Versionen 
dieser Sprache, dafür aber eine um- 
so solidere Basis für Eigenentwick- 
lungen ist. Da der FIG-Standard 
strikt eingehalten wird, dürfte die 
Anpassung von schon geschriebe- 
nen Forth-Programmen überhaupt 
keine Probleme aufwerfen. Alles in 
allem also eine Forth-Version, mit 
der Anfänger wie Fortgeschrittene 
gleichermaßen gut bedient sind. 

(B. Schneider/ev) 


Info: Happy Software, Markt & Technik Verlag AG, Hans- 
Pinsel-Str. 2, 8013 Haar bei München. Preis 98,- Mark. 
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Assembler ist keine Alchimie — Teil 10 


Auf zum Endspurt: Die letzten 4 Assembler-Befehle werden 
in Angriff genommen (jedoch nicht die letzte Folge des 


Kurses). Wir 


steigen ein in ein unerhört interessantes, 


wenn auch nicht einfaches Thema: Die Interrupt-Technik. 


ıe Assembler-Befehle ha- 

ben wir bis auf vier noch 
offenstehende alle behandelt. 
Diese vier, die alle mit dem 
Interrupt-Handling zusammen- 
hängen, sollen diesmal unser 
Thema sein. Um nach längerer 
Zeitmal wieder aufden Titel die- 
ser Serie zurückzukommen 
(nämlich die Alchimie)):; Wenn 
wir diese 4 Befehle beherr- 
schen, haben wir den ersten 
Schritt zum Meister der Assem- 
bler-Alchimie getan. Diese vier 
kleinen I-Byte-Befehle öffnen 
uns eine geheime Pforte zu ei- 
nem Universum an Program- 
mier-Möglichkeiten, von dem 
wir bisher kaum zu träumen ver- 
mochten. Genug der Schwärme- 
rei, erstkommt noch eine Menge 
Arbeit, die uns wohl mehrere 
Folgen dieser Serie in Atem hal- 
ten wird. 

Zuvor noch eine Bemerkung: 
es gibt kaum ein Thema im Rah- 
men der Programmierung in As- 
sembler, welches so penetrant 
häufig Abstürze provoziert, wie 
das nunmehr angesteuerte! 
Falls Sie noch keine RESET Taste 
an ihrem Computer haben, wird 
es nun höchste Zeit. Diese nützli- 
chen Dinger werden inzwischen 
schon so preiswert angeboten 
(sehen Sie mal in den Kleinanzei- 
genteill), daß Sie zur Grundaus- 
stattung eines Assembler Alchi- 
misten zählen. 


Was sind Interrupts? 


Unser Computer ist — solange 
er eingeschaltet ist — ständig mit 
irgendwelchen Tätigkeiten be- 
schäftigt. Im Direktmodus hängt 
er beispielsweise meistensin ei- 


ner Warteschleife und harrt der 
Eingaben, im Programm-Modus 
arbeitet er sich mit Hilfe der In- 
terpreterschleife durch einen 
Basic-Befehlstext hindurch und 
so weıter. Nun werden Sie ja si- 
cher schon festgestellt haben, 
daß er im Direktmodus auch 
den Cursor blinken läßt, in bei- 
den Modi die TI$-Uhr weiter- 
zählt und weitere Dinge macht, 
die anscheinend so nebenher 
passieren. Schon in der ersten 
Folge dieser Serie aber haben 
wir einen Unterschied zwischen 
Mensch und Computer festge- 
halten: Der Mensch kann meh- 
rere Dinge gleichzeitig tun, der 
Mikroprozessor ist nur fähig zu 
einer Arbeit pro Zeiteinheit. 
Weil aber diese Zeiteinheiten so 
unfaßbar kurz sind (etwa eine 
Millionstel Sekunde), haben wir 


Benutzer den Eindruck der 


Gleichzeitigkeit. 
Wenn dem aber so ıst, wie 


macht es der Computer, daßer u 


beispielsweise ein Programm 
abarbeitet und trotzdem die 
TI$-Uhr weiterzählt? Durch Un- 
terbrechungen (interrupt = un- 
terbrechen) der gerade ausge- 
übten Tätigkeit. Ein Beispiel aus 
dem täglichen Leben soll uns 
das illustrieren: Sie lesen gera- 
de diesen Artikel, als das Tele- 
fon klingelt und ein Freund von 
Ihnen wissen möchte, was ei- 
gentlich Unterbrechungen sınd. 
Während Sie es ıhm erklären, 
fängt ın der Küche der Teekes- 
sel schrill zu pfeifen an. Sie sa- 
gen Ihrem Freund, er möge sich 
einen Moment gedulden, gehen 
ın die Küche und nehmen den 
Kessel vom Feuer. Dann kehren 
Sie ans Telefon zurück und 


Telefon Kessel 


Lesen 
(Hauptprogramm) 


Telefonat 
(IRO-Programm) 


Kessel vom Feuer 
(NMI-Programm) 
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beenden nach einer Weile das 
Gespräch. Nach dem Auflegen 
des Telefonhörers setzen Sie die 
Lektüre des Artikels fort, fest 
entschlossen, sich nun nicht 
mehr unterbrechen zu lassen. 
Kurze Zeit später klingelt je- 
mand an der Tür. Sie lassen sich 
dadurch nicht stören. 

Dieses Gleichnis gibt ziemlich 
genau wieder, was sich im Com- 
puter — nur bei millionenfacher 
Geschwindigkeit — bei Unter- 
brechungen abspielt. In Bild 1 ist 
das Schema des Ablaufes gra- 
fisch dargestellt. In gewisser 
Weise ähnelt das ganze dem Ab- 
arbeiten von Unterprogrammse- 
quenzen. Weshalb program- 
miert man dann nicht einfach 
mittels einiger ]JSR-Aufrufe? Da- 
für hat L.A.Leventhal einen ein- 
leuchtenden Vergleich: »Ein 
Unterbrechungs-System ent- 
spricht etwa einer Telefonklin- 
gel. Sıe läutet, wenn ein Änruf 

Dee wird, so daß man 

en Hörer nicht laufend abneh- 
men muß, um festzustellen, ob 
sich jemand in der Leitung be- 
findet.« (L.A.Leventhal, »6502 
Programmieren in Assembler«, 
München te-wi Verlag, S.12]). Un- 
terbrechungen können dann an- 
gefordert und abgearbeitet 
werden, wenn sie nötig sind, im 
Gegensatz zu Unterprogram- 
men, die erst dann berücksich- 
tigt werden, wenn der Pro- 
grammzähler einen ]JSR-Befehl 
erfaßt. Um also schnell reagie- 
ren zu können, müßte man sehr 
oft in einem Programm eine Un- 
terroutine anspringen, die auf 
gewisse Registerinhalte prüft 
und dann zur Bearbeitung ver- 
zweigt oder — bei Nichtvorlie- 


Türklingel 


Bild 1. Unterbrechungsbeispiele im täglichen Leben 


gen einer Bedingung — Im nor- 
malen Programm weiterfährt. 
Das kostet unnötig Zeit und Spei- 
cherraum. Mancher Verkehr 
des Computers mit Peripherie 
erfordert so schnelle Reaktıio- 
nen, daß diese nur geleistet wer- 
den können durch Unterbre- 
chen des laufenden Program- 
mes. 

Ich denke, daß Sie nun die Not- 
wendigkeit von Unterbrechun- 
gen erkennen. Fast jede CPU 
kennt solche Unterbrechungs- 
systeme. Man kann sıe charakte- 
risieren durch die Beantwortung 
folgender Fragen: 

I) Welche Unterbrechungs-Ein- 
gänge weist die CPU auf? 

2) Wie reagiert die CPU aufeine 
Unterbrechung? 

3) Wie bestimmt die CPU die Un- 
terbrechungsquelle, wenn die 
Anzahl der Quellen größer ist 
als die Anzahl der Eingänge? 
4) Kann die CPU zwischen wich- 
tigen und weniger wichtigen Un- 
terbrechungen unterscheiden? 
5) Wie und wann wird das Unter- 
brechungssystem freigegeben 
oder gesperrt? 

All diese Fragen werden wir 
im Laufe dieser Serie für unse- 
ren Computer ergründen. 


Das Unterbre- 


chungssystem der 
CPU 6510/6502 


Einige dieser Charakteristika 
sind schnell zu zeigen: 
Zu 1: Unsere CPU hat ganau 2 
Eingänge für Unterbrechungen 
(wenn man RESET außer acht 
läßt, was wir im folgenden meist 
tun werden). 
Zu 3: Natürlich gibt es weitaus 
mehr denkbare Unterbre- 
chungsauellen als diese 2 Ein- 
gänge, weshalb softwaremäßig 
eine Registerabfrage (das soge- 
nannte Polling) durchgeführt 
wird, um die Quelle festzustel- 
len. 
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Zu 4: Zwischen wichtiger und 
nicht so wichtiger Unterbre- 
chung kann unsere CPU unter- 
scheiden durch die Priorität der 
beiden Eingänge. Wir haben ei- 
ne sogenannte maskierbare Un- 
terbrechung, genannt IRQ, wel- 
che per Befehl ignoriert (mas- 
kiert) werden kann und eine an- 
dere, nicht maskierbare, die da- 
her auch NMI (not maskable in- 
terrupt = nicht maskierbare Un- 
terbrechung) genannt wird. 
NMI hat eine höhere Priorität als 
IRQ und kann deshalb für die 
wichtigeren Aufgabenstellun- 
gen eingesetzt werden. 

Zu 5: Freigegeben oder gesperrt 
werden kann die IRQ-Unterbre- 
chung durch ein Sperrbit (auch 
Maskenbit genannt), welches 
sich alsBit2imFlaggen-Register 
des Prozessors befindet. Das ist 
die I-Flagge. Für den Empfang 
der NMI-Unterbrechung kann 
die CPU nicht gesperrt werden. 


Um mal die Parallele zu unse- 
rem Beispiel zu zeigen: Das Le- 
sen des Artikels ist die gerade 
stattfindende Tätigkeit des Com- 
puters. Die Telefonklingel signa- 
lisiert einen IRQ, der im folgen- 
den bearbeitet wird. Das Pfeifen 
des Teekessels soll einem NMI 
entsprechen. Wenn dieser dann 
bearbeitet ist, geht es mit der 
Abarbeitung des IRQ weiter. 
Nach Beendigung des Telefona- 
tes wird das Unterbrechungs- 
Sperrbit gesetzt (sie nehmen 
sich vor, sich nicht mehr stören 
zu lassen) und mit der normalen 
Tätigkeit fortgefahren. Weil der 
nun folgende IRQ damit mas- 
kiert ist, wird das Türklingeln ig- 
noriert. 

Die Frage 2, nämlich wie unsere 
CPU auf eine Unterbrechung 
reagiert, blieb noch unbeant- 
wortet. Nun soll sie behandelt 
werden! 

a) Am Ende jedes Befehls über- 
prüft die CPU automatisch den 
Zustand des Unterbrechungs- 
Systems. Wenn an einer der bei- 
den Unterbrechungsleitungen 
eine Anforderung vorliegt und 
diese auch freigegeben ist, be- 
ginnt die Unterbrechung zu wir- 
ken. 

b) Zunächst wird der Programm- 
zählerinhalt in der Reihenfolge 
MSB, LSB auf den Stapel ge- 
schrieben. Danach wandert 
noch der Prozessorstatus auf 
den Stapel (siehe Bild 2). 

c) Durch Setzen des Unter- 
brechungs-Sperrbits I werden 
weitere maskierbare Unterbre- 
chungen (IRO) unterbunden. 

d) Nun holt sich die CPU aus ei- 
nem Vektor ganz am Ende des 
Speichers eine Adresse, lädt 
diese in den Programmzähler 
und startet auf diese Weise ein 
Serviceprogramm, das dem 
auslösenden Anlaß Rechnung 
trägt. Inder Tabelle 1 sind die zu 
den Unterbrechungsformen 
und zum RESET gehörigen Vek- 
toren aufgeführt. 
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Bild 2. Die CPU rettet den Programmzähler und das Statusregister 
beim Eintreten einer Unterbrechung auf den Stapel 


Bevor wir uns weiter mit den so 
angesteuerten Routinen befas- 
sen, wollen wir die 4 Befehle 
kennenlernen, die uns noch feh- 
len. 


Schlüssel zur Unterbrechungsprogram- 
mierung: CLI, SEI, RTI, BRK 


Das Sperren der maskierba- 
ren Unterbrechung IRQ und das 
Löschen der Maske erfolgt 
durch Setzen oder Löschen des 
Sperrbits im Prozessorstatus- 
Register. Dieses Bit, die I 
Flagge, kann durch den Befehl 
CLI gelöscht werden. (LI 


von »Clear Interrup B 
bedeutet »lösche R " Lit 
chungs-Maske«. Immer dann, 
wenn IRQs zugelassen sein sol- 
len zur Bearbeitung durch den 
Mikroprozessor, muß damit die 
I-Flagge gelöscht werden. Wie 
Sie sehen, ist CLI ein I-Byte- 
Befehl mit impliziter Ädressie- 
rung. Er braucht genau 2 Taktzy- 
klen zur Erledigung seiner Auf- 
gabe. 

Wenn wir später eigene Unter- 
brechungsroutinen schreiben, 
stehen wir oft vor der Frage, ob 
wirinnerhalb unseres Unterbre- 
chungsprogramms weitere Un- 
terbrechungen zulassen wollen. 
Manchmal ist das wichtig, beI- 
spielsweise bei der Tastaturab- 
frage. Wie wir vorhin erwähnt 
haben, sperrt die CPU automa- 
tisch bei der Annahme von Un- 
terbrechungen weitere IROs 
durch Setzen der I-Flagge. Einer 
der ersten Befehle der eigenen 
Unterbrechungsroutine wird 
dann die Freigabe von Unter- 
brechungen sein durch Löschen 
der I-Flagge. 

SEI bewirkt das Gegenteil von 
CLI. Der Befehl setzt die I 
Flagge auf 1 6S$Et Interrupt 
mask«) und verhindert, daß der 
Mikroprozessor weiteren IRQs 
seine Aufmerksamkeit schenkt. 
Das ist in den Fällen wichtig, in 
denen beispielsweise störungs- 
frei der Inhalt des Charakter- 
ROM gelesen werden soll oder 
während der Änderung von 
Speicherstellen, die die IRQ- 
Routine benutzt. Wie wichtig das 


Sperren von IROs sein kann, ha- 
ben Sie eventuell bemerkt, 
wenn Ihnen das Hilfsbildschirm- 
programm aus der 6. Folge mal 
abgestürzt war. Seit der letzten 
Folge — wo wir die IRQs ge- 
sperrt haben — ist Ihnen das si- 
cherlich nicht mehr passiert. 
Ebenso wie CLI ist SEI ein 
l-Byte-Befehl mit imßpliziter 
Ädressierung, und auch er 
braucht 2 Taktzyklen zur Bear- 
beitung. 

Noch eine Bemerkung zum 
Verhindern der IROs. Wir wer- 
den später sehen, wasalles wäh- 

Idee. der 60mal pro Sekunde 
RE onen Unterbrechung 
erledigt wird. Jede Routine, die 
SEI verwendet, verbraucht Re- 
chenzeit. Wenn sie so lange dau- 
ert, daß eine oder mehrere die- 
ser regelmäßigen IRQs unter- 
bunden werden, kann das unter 
Umständen zu Störungen von 
Programmabläufen führen. In 
solchen Fällen ist es sinnvoll, ın 
die eigene Routine den Teil der 
regulären IRQ-Routine einzu- 
bauen, der im Programmablauf 
durch sein Fehlen Störungen 
verursacht. Meistens kann man 
aber durch gute Planung eines 
Programmes dieses Problem 
umgehen. 

RTI heißt »Relurn from Inter- 
rupt«, zu deutsch also: »kehre aus 
dem Unterbrechungsprogramm 
zurück.« Es entspricht in seinem 
Einsatz etwa dem RTS bei Unter- 
programmrücksprüngen. Wäh- 
rend RTS aber lediglich den al- 
ten Programmzählerinhalt vom 
Stapel holt (und noch eine 1 da- 
zuaddiert), schafft RTlauchnoch 
den alten Inhalt des Status- 
Registers vom Stapel zurück. 
Der genaue Ablauf ist wie folgt: 
1) Alten Prozessorstatus vom Sta- 
pel wieder ins’ Status-Register 
schieben. 

2) Stapelzeiger um 1 erhöhen 
3) LSB des alten Programmzäh- 
lers vom Stapel nehmen und zu- 
rückschreiben. 

4) Stapelzeiger um | erhöhen 
5) MSB des alten Programmzäh- 
lers vom Stapel nehmen und zu- 
rückschreiben. 
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| | 6) Stapelzeiger um | erhöhen. 


Damit ist der Zustand vor der 
Unterbrechung wieder herge- 
stellt. Auch die I-Flagge ist so au- 
tomatisch wieder gelöscht, denn 
vor der Unterbrechung war sie 
sicher nicht gesetzt gewesen 
und der alte Status-Zustand ist ja 
jetzt wieder vorhanden. 

RTI ist ebenfalls ein 1-Byte- 


| Befehl mit impliziter Adressie- 


rung. Seine vollständige Bear- 
beitung dauert 6 Taktzyklen. 

Bei eigenen Unterbrechungs- 
Routinen verwendet man häufig 
nicht RTI, sondern springt durch 
JMP an eine sinnvolle Stelle des 
normalen Unterbrechungspro- 
grammes. Auf diese Weise kann 
man dann die normalen Arbeits- 
gänge der vorprogrammierten 
Unterbrechung oder Teile da- 
von noch ausführen lassen. 

Den Befehl BRK (break = Soft- 
ware-Unterbrechung) haben wir 
schon verwendet. Er entspricht 
in seinem Einsatz etwa dem 
STOP-Befehl in Basic und dient 
wie jeder Befehl dort hauptsäch- 
lich dem Testen von Program- 
men. Tatsächlich unterscheidet 
sich die Reaktion unserer CPU 
bei Auftreten eines BRK kaum 
von der bei einem IRO. Folgen- 
des passiert: 

a) Der Programmzähler wird um 
2 erhöht. 

b) Bit 4 des Prozessorstatusregi- 
sters, die Break-Flagge B, wird 
auf 1 gesetzt. 

c) Das MSB des Programmzäh- 
lers wird auf den Stapel ge- 
bracht und der Stapelzähler um 
l heruntergezählt. 

d) Dasselbe geschieht nun mit 
dem LSB des Programmzählers 
e) und mit dem Statusregister. 

f) Das Unterbrechungsmasken- 
bit, die I-Flagge, wird auf | ge- 
setzt um IRQs zu sperren. 

g) In den Programmzähler wird 
nun aus dem Vektor FFFE/FFFF 
dieselbe Adresse geladen, die 
auch bei IROs benutzt wird. Da- 
mit startet nun das Programm, 
das diese Unterbrechung bear- 
beitet. 


Sie sehen, daß der BRK-Befehl 
ein ziemlich komplizierter Ge- 
selle ist. Zwar handelt es sich 
wieder um einen I-Byte-Befehl 
mit impliziter Adressierung, 
aber er benötigt immerhin 7 
Taktzyklen, um all diese Arbeit 
zu bewältigen. 

Wir haben BRK bisher immer 
zur Programmunterbrechung 
mit nachfolgender Recisteran- 
zeige durch den SMON einge- 
setzt. DerSMON ist — wie fast je- 
der Monitor — so programmiert, 
daß ein BRK zur Registeranzeige 
führt. Das ist natürlich sinnvoll 
beim Einsatz von BRK zur Fehler- 
suche. In dem Moment, wo ein 
BRK vom Prozessor bearbeitet 
wurde, kann nur durch die ge- 
setzte B-Flagge von einem IRQ 
unterschieden werden. Es ist 
manchmal nötig, schon zu die- 
sem Zeitpunkt diesen Unter- 
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schied festzustellen. Deshalb 
verwendet man den nachfol- 
gend beschriebenen Test zu 
diesem Zweck: 

PLA 

in den Akku wird das zuletzt auf 
den Stapel geschobene Prozes- 
sorstatus-Register geholt. 

PHA 


um 2 erhöht worden ist. Manch- 
mal sind deshalb noch Korrektu- 
ren des Programms nötig. 

Ich hoffe, daß Sie bisher die- 
sen Artikel nicht zu frustrierend 
fanden, denn ständig ist die Re- 
de vom eigenen Unterbrech- 
ungs-Programm und dabei wis- 
sen Sie — außer durch BRK — 


ne gewisse Übersicht zu bekom- 
men, sollte man unterscheiden 
zwischen primären und sekun- 
dären Unterbrechungsauellen. 
Das soll kurz erläutert werden: 
Die Diskettenstation beispiels- 
weise Ist über den seriellen Port 
mit dem Computer verbunden. 
Dieser wiederum steht in direk- 


Den Expansion-Port werden 
wir nicht behandeln und einen 
RESET nur ziemlich kurz be- 
trachten, weil es sich dabei ei- 
gentlich nicht um eine Unterbre- 
chungim bisher definierten Sinn 
handelt. 


Der VIC-II-Chip als 


und sogleich wieder zurückge- noch gar keine Möglichkeit, ei- tem Kontaktzu 2 Bausteinen, den 

schoben nen IRQ oder NMI auszulösen, ClIAs. Erst diese CIAs stehen in Unterbrechungs- 
AND #$10 und Sie sind sicher noch sehr direktem Kontakt zur CPU. Alle velle 

durch die AND-Verknüpfungmit vorsichtigmitdem Gedankenan Unterbrechungs-Quellen, die 


der Binärzahl 0001 0000 kann ei- 
ne eventuell vorhandene B- 
Flagge isoliert werden. 

BNE BREAK 

Falls eine B-Flagge gesetzt war, 
ıst der Akku ungleich 0 und die 
Bearbeitung verzweigt zum von 
uns konstruieren BREAK- 
Programm. War der Akku nach 
dieser AND-Verknüpfung gleich 
0, dann erfolgt keine Verzwei- 
gung und es handelt sich um ei- 
nen IRQ, zu dessen Bearbeitung 
nun zu springen ist. 

Es gibt noch eine andere — 
gebräuchlichere — Möglichkeit, 
zwischen einem BRK und einem 
IRQ zu unterscheiden, die aller- 
dings erst zu einem späteren 
Zeitpunkt descomputerinternen 
Unterprogrammes erfolgt. Von 


eigene Unterbrechungs-Routi- 
nen, weil Ihnen ja noch unbe- 
kannt ist, wie die normale Firm- 
ware Unterbrechungen behan- 
delt. Keine Angst: All das wer- 
den wır noch klären. Betrachten 
Sie diese Folge zum Thema Un- 
terbrechungen vielleicht mehr 
wie ein Handbuch, in dem Sıe 
dann, wenn Ihr Verständnis ge- 
stiegen ist, nochmal zurückblät- 
tern können! 

Wirhaben bisher nur betrach- 
tet, wie unsere CPU reacdiert, 
wenn an einem der beiden 
Unterbrechungs-Eingänge (IRO 
und NM]J) eine Unterbrechungs- 
Anforderung vorliegt. Um nun 
aber selbst ins Geschehen ein- 
greifen zu können, ist es nötig zu 
wissen, wie diese Änforderung 


direkt Signale an die beiden Un- 
terbrechungseingänge unserer 
CPU senden, sollen künftig »pri- 
märe« Quellen genannt werden, 
die anderen, die nur über solch 
eine primäre Quelle Unterbre- 
chungs-Anforderungen stellen, 
werden von uns als »sekundäre« 
Quellen bezeichnet. Weil wir ir- 
gendwo einen Schnitt machen 
müssen — einmal, um nicht völ- 
lig auszuufern in der Erklärung 
von peripheren Geräten (das 
soll anderen, kompetenteren 
überlassen bleiben) und zum an- 
deren, weil ich mich da auch 
nicht so gut auskenne — werden 
wir unsim folgenden auf die pri- 
mären Unterbrechungsquellen 
beschränken. Da bleibt aber 
noch mehr als genug zu tun 


Soweit ich feststellen konnte, 
kommt der VIC-II-Chip in Bezug 
aufunsere CPU nur als Anforde- 
rer von maskierten Unterbre- 
chungen (IRO) in Frage. Die 
Handhabung seiner Unterbre- 
chungs-Änforderungen ge- 
schieht im VIC-II-Chip durch 
zwei Register. Vier Ereignisse 
sind eingeplant, deren Eintreten 
zur Unterbrechung führen kann: 
I) Rasterzeilen-Unterbrechung 
2) Kollision eines Sprite mit Hin- 
tergrund 
3) Kollision von Sprites unterein- 
ander 
4) Lichtgriffel-Unterbrechung. 

Die ersten 3 Auslöser werden 
wir uns in kommenden Folgen 
genau ansehen und dabei vıe- 
lerlei interessante Möglichkei- 
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Bild 3. Das Interrupt-Enable-Register (53274 = $d0la) des VIC-II-Chip 
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Markierung, 
ob zugelas- 
sene Unter- 
brechung 
aufgetreten 
ist 
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Bild 4. Das Interrupt-Latch-Register (53273 = $d019) des VIC-II-Chip 
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dieser zweiten Möglichkeit wird 
im SMON Gebrauch gemacht 
und wir werden sie nachher 
auch kennenlernen. 

Natürlich kann der BRK-Befehl 
auch zu anderen Zwecken als 
zur Registeranzeige durch einen 
Monitor verwendet werden. Es 
kommt immer darauf an, wel- 
ches Service-Programm wir 
dem Computer anbieten. 
Springt man aus so einem 
Service-Programm mittels RTI 
zurück ins Hauptprogramm, 
dann muß man berücksichtigen, 
daß der Programmzähler vor 
der Sicherung auf dem Stapel 
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dorthin gelangt. Das erfordert 
von uns die Beschäftigung mit 
anderen Computerbausteinen 
alsderCPU, die bisher im Mittel- 
punkt unseres Interesses stand. 


Woher kommen die 
Unterbrechungs- 
Anforderungen? 


Quellen für Unterbrechungen 
können viele genannt werden: 
Diskettenstation, Datasette, 
Drucker, Modem, Schaltele- 
mente und so weiter. Umaber eı- 


übrig und deshalb soll auch nur 
eine Auswahl dieser Primär- 
quellen detailliert behandelt 
werden. 

Welches sind nun die primä- 
ren Unterbrechungsauellen? 
Hier sind sie aufgeführt: 

I) Der VIC-I-Chivp (MOS 
6566/6567 Video Interface Con- 
troller) 

2) Die beiden CIAs (MOS 6526 
Complex Interface Adapter) 

3) Die RESTORE-Taste 

4) Der Expansion-Port 

5) RESET (paßt hier nicht ganz 
her, woanders aber auch nıcht 
besser) 





ten feststellen. Die Option, die 
der Lichtgriffel bietet, wird nicht 
behandelt werden: Meine 
Kenntnisse auf diesem Sektor 
sind nur gering (nobody is per- 
fect). 

Dassogenannte Interrupt Ena- 
ble Register (Unterbrechungs- 
Zulassungs-Register) des VIC-I- 
Chips ist Register 26. Es befindet 
sich in der Speicherstelle 53274 
($DO1A) (siehe Bild 3). 

In diesem Register wird fest- 
gelegt, ob eines — oder mehre- 
re — der 4 möglichen auslösen- 
den Ereignisse eine Unterbre- 
chungsanforderung an den Mi- 
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Bild 5. Genereller Aufbau der Unterbrechungs-Kontroll-Register (13) der beiden CIA-Bausteine 


kroprozessor senden soll. Je- 
dem Ereignis ist ein Bit zugeord- 
net. Ist dieses Bit gleich 1, dann 
ist die Unterbrechung freigege- 
ben, istes gleich 0, dann liegt ei- 
ne Sperrung vor. Die Zuordnung 
der Bits ist wıe folgt: 

Bit 0 Rasterzeilen-IRQO 

Bit 1 Sprite/Hintergrund- 
Kollision 

Bit 2 Sprite/Sprite-Kollision 

Bit 3 Lichtgriffel-IRQ 

Bits 4 bis 7 sind ungenutzt und ha- 
ben immer den Wert 1. 

Das Register 25 wird Interrupt 
Latch Register genannt, was et- 
wa zu übersetzen wäre mit »Un- 
terbrechungs-Einrast-Register« 
(siehe Bild 4). Der englische Aus- 
druck »latch«, der nur umschrei- 
bend oder sehr technisch über- 
setzt werden kann, beschreibt 
eigentlich recht genau, was in 
diesem Register geschieht. Ein 
»latch« ist nämlich so etwas wie 
ein Schnappriegel, also ein Rie- 
gel, der bei der Betätigung ein- 
rastet. Wenn eines der 4 möglı- 
chen Ereignisse eintritt, 
schnappt im dazugehörigen Bit 
dieses Registers der Inhalt auf]. 
Die Bit-Zuordnung ist die glei- 
che wie ın Register 26. Aber das 
Bit 7 hat hier noch eine Bedeu- 
tung: Ist eines der Bits O bis 3 auf 
] gesetzt und das dazugehörige 
Ereignis in Register 26 auch zur 
Unterbrechung zugelassen (also 
auch dort gleich ]), dann taucht 
in Register 25, Bit Teine 1 auf. So 
kann durch einfaches Lesen die- 
ses Bits festgestellt werden, ob 
ein IRO durch den VIC-II-Chip 
ausgelöst wurde. 

Will man in diesem Register 
ein gesetztes Bit löschen, muß 
man — außergewöhnlich! — eine 
l in die Bitposition schreiben. 

Mit Recht erwarten Sie nun ei- 
gentlich eine Änwendung des 
bisher gelernten. Bei Unterbre- 
chungsprogrammen ist es aber 
dringend nötig, immer den ge- 
samten Komplex im Auge zu ha- 
ben. Ich habe mich daher ent- 
schlossen, zuerst alles zu erklä- 
ren und dann ÄAnwendungsmög- 
lichkeiten vorzustellen. Ihre Ge- 
duld wird auf eine harte Probe 
gestellt, aber ich hoffe, daß Sie 
ab der nächsten Folge feststel- 
len, daß es sich gelohnt hat, et- 
was zu warten. 

An sich sind die beiden CIAs 
in unserem Computer völlig 
identisch. Sie werden aber un- 
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terschiedlich eingesetzt. Sehen 
wir uns zunächst einmal an, was 
beiden in Bezug auf Unterbre- 
chungen gemeinsam ist, um da- 
nach die Unterschiede festzu- 
halten. Die Unterbrechungs- 
Steuerung geschieht in Register 
13 dieser Bausteine. Dieses Re- 
gister hat 2 Funktionen: Es be- 
stimmt, ob eine Unterbrechungs- 
anforderung an die CPU ge- 
sandt werden soll, und es stellt 
fest, ob ein Ereignis stattgefun- 
den hat, das zur Unterbrechung 
führen kann. Die Bedienung die- 
ses Registers ist demzufolge 
auch etwas unübersichtlich, 
aber wir haben schon ganz an- 
dere Probleme gemeistert. 


Die beiden CIA- 


Bausteine als.Unter-;:2 


brechungsquellen 


Sehen wir uns aber zuerst ein- 
mal an, welche Ereignisse vom 
Standpunkt eines CIA-Baustei- 
nes als Unterbrechungskriteri- 
um dienen können: 

I) Unterlauf der Uhr A 

2) Unterlauf der Uhr B 

3) Die interne Uhr hat eine 
Alarmzeit erreicht 

4) Am SP-Eingang (hängt mit 
dem seriellen Port zusammen) 
ist ein bestimmter Zustand er- 
reicht 

5) An einem Eingang namens 
FLAG ist ein bestimmter Zustand 
erreicht. 

Die Ereignisse 4 und 5 werden 
wir ebenfalls im weiteren weit- 
gehend ausklammern. 

Nun zum Register 13, dem 
Unterbrechungs-Kontroll-Regi- 
ster (siehe Bild 5). 

Auch hier gehört zu jedem Er- 
eignis ein Bit. Dabei — um Wie- 
derholungen zu vermeiden — ist 
die Zuordnung schon durch die 
eben angegebene Ereignisauf- 
zählung gegeben. Ziehen Sie 
von der vorangestellten Num- 
merimmer eine 1 ab und Sie ha- 
ben die Bitnummer. Die Bits 5 
und sind unbenutzt. Bit 7 hatei- 
ne dreifache Funktion, die eng 
mit den anderen Bitinhalten ver- 
knüpft ist. Sehen wir uns das mal 
der Reihe nach an: 

Lesen des Registers 

Sind  Unterbrechungsereig- 

nisse aufgetreten, dann sind die 





dazugehörigen Bitsauf] gesetzt. 
Bit 7 ist gleich |, wenn minde- 
stens ein solches Ereignis statt- 
gefunden hat und außerdem 
dieses Ereignis als Unterbre- 
chungsauslöser freigegeben ist. 
Auf diese Weise kann — ähnlich 
wie beim VIC-II-Chip-Register 
25 — festgestellt werden, ob die 
Unterbrechung durch einen der 
beiden CIAs angefordert wur- 
de. Im Unterschied aber zum 
VIC-II-Register wird Register 13 
durch das Lesen gelöscht. Braucht 
man den Inhalt also noch, sollte 
manihnirgendwo zwischenspei- 
chern. 

Schreiben in das Register 

Bit 7 = 0 erzeugt Sperren. 

Das erkennt man am besten an 
einem Beispiel. Nehmen wir an, 
wir möchten die Unterbrechung 
sperren, die durch einen Unter- 

Weson Uhr A erzeugt werden 
kann. Das betrifft das Bit 0. Wir 
schreiben in das Register 13 fol- 
gende Zahl: 0000 0001 

Wie Sie sehen, ist das Bit 7 
gleich 0. Die lin Bit 1 bewirkt die 
Sperrung. Durch die Nullen in 
den anderen Bits wird bewirkt, 
daß die anderen Unterbre- 
chungs-Ereignisse nicht beein- 
flußt werden. Wollten wir alle 
sperren, dann müßten wir ein- 
schreiben: 0001 1111 

Auf diese Weise können selek- 
tiv einzelne Unterbrechungen 
Aurch Einschreiben der 1 bei 
gelöschtem Bit 7 gesperrt wer- 
den. 

Bit 7 = | erzeugt Freigabe. 

Auch hier wieder ein Beispiel. 
Wenn wir ganz gezielt Unterbre- 
chungen durch Unterlauf der 
Uhr A freigeben wollen, müssen 
wir die folgende Zahl in Register 
13 schreiben: 1000 0001 
Bit 7 (gleich ])zeigt an, daß dieje- 
nigen Unterbrechungen freizu- 
geben sind, deren Bits auf | ge- 
setzt sind. Alle anderen Unter- 
brechungen, wo also In der da- 
zugehörigen Bitposition der ein- 
zuschreibenden Zahl eine 0 
steht, bleiben unverändert. 

Ein wichtiger Unterschied zwi- 
schen den beiden CIAs ist der, 
daß der Unterbrechungsaus- 
gang von CIA 1 mit dem IROQ- 
Eingang der CPU verbundenist, 
wohingegen der entsprechende 
Ausgang von CIA2 an den NMI- 
Eingang unseres Mikroprozes- 
sors führt. Daher löst der CIA 1 
nur IRQs aus, er wird manchmal 


deshalb auch IRQ-CIA genannt. 
Der andere ist dann der NMI- 
CIA, weil er nur NMlIs anfordern 
kann. 


Der IRQ-CIA 


Das Register 13 des IRO-CIA 
(der die Speicherstellen 56320 
bis 56335 belegt), liegt in Zelle 
56333 ($DCOD). Die einzelnen 
Bits sind wie folgt zugeordnet: 
Bit 0 Unterlauf Uhr A 
Von hier kommt der IRQ, der 
60mal pro Sekunde stattfindet 
zur Tastaturabfrage, zum Weiter- 
stellen der TI$-Uhr etc. 

Bit I Unterlauf Uhr B 

Spielt bei Kassettenoperationen 
und dem seriellen Port eine 
Rolle. 

Bit 2 ALARM bei interner Uhr. 
Spielt beim Zufallszahlengene- 
rator (RNDX(0)) eine Rolle. 

Bit 3 Hier kommen durch den 
User-Port Unterbrechungs-An- 
forderungen. 

Bit 4 ist verbunden mit dem se- 
riellen Port und der Kassetten- 
Lese-Leitung. 


Der NMI-CIA 


Ebenso kurz und schmerzlos 
wie beim CIA 1 sollauch das be- 
sondere am CIA 2, dem NMI- 
CIA (er belegt den Speicher von 
56576 bis 5683]) vorgestellt wer- 
den. Sein Register 13 findet sich 
inSpeicherstelle 56589 ($DDOD). 
Die Bits O0 und 1 (Unterläufe der 
beiden Uhren) spielen beim 
Senden beziehungsweise Emp- 
fangen von Daten über die 
RS232C-Schnittstelle eine Rolle, 
Bit 2 (ALARM) wird nicht ver- 
wendet, Bit 3 ist direkt mit dem 
User-Port verbunden ebenso 
wie Bit 4 Der NMI-CIA wird uns 
in seiner normalen Funktion 
nicht mehr beschäftigen. 


Die RESTORE-Taste und ein kleines Test- 
programm 


Die RESTORE-Taste ist direkt 
mit dem NMI-Eingang unseres 
Mikroprozessors verbunden. 
Das ermöglicht es uns, durch 
einfaches Drücken dieser Taste 
jederzeit ins Geschehen einzu- 
greifen, ohne uns um Details 
kümmernzumüssen, obsich der 
Computer gerade im Direkt- 
oder im Programm-Modus be- 
findet und so weiter. Denn NMI 
hat die höchste Priorität der Un- 
terbrechungen. 

Ein kleines Testprogramm soll 
Ihnen hier noch vorgestellt wer- 
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den, dasSie vielleicht aber noch 
nicht ganz verstehen werden, 
weil wir erstin der nächsten Fol- 
ge die eingebauten Servicepro- 
gramme kennenlernen werden. 
Schalten Sıe also denSMON ein 


und geben Sie das Programm 1° 


ein (ab $6000): 


Am besten speichern Sie nun 
das Programm ab und schalten 
dann mittels dem SMON-Kom- 
mando M 0318 die Anzeige der 
Bytes ab $0318 ein. Dort steht in 
den beiden ersten Speicherzel- 
len 47 und FE. Mit dem Cursor 
fahren Sie in diese Zeile und än- 


mit diesen Befehlen retten wir Akku und Register 













Unterbrechungsart Vektor Zieladresse 

Maskierbare Unterbrechung (IRO, SFFFE/FFFF 65352 $FF48 
BRK) 

Reset SFFFC/FFFD 64738 $FCE2 
Nichtmaskierbare Unterbrechung $FFFA/FFFB 65091 $FE43 
(NM) 


Tabelle 1. Unterbrechungsvektoren und ihre Inhalte 


Befehls- Adressie- Byte- Code 
wort rung zahl Hex Dez 


CLI implizit 58 88 
SEI implizit 78 120 
RTI implizit 40 64 
BRK implizit 00 0 


Takt- 


cyclen 


Beeinflussung 
von Flaggen 


I-Flagge 

I-Flagge 

alle Flaggen 
B-Flagge vor dem 


Dadurch werden alle NMlIs, die vom CIA 2 kom- 
men könnten, gesperrt. Erinnern Sie sich: Bit 7 ist 
Null beim Schreiben, also Sperrfunktion. 

Lesen des Registers 13 löscht dieses und zeigt 
uns, ob die NMI-Anforderung von dort kam. 

falls NMI-Anforderung vom CIA 2 kam, wird ver- 


ansonsten kommt der NMI von der RESTORE- 
Taste, und in den Akku wird die Rahmenfarbe 


Ausgehend davon, daß als Rahmenfarbe 14 vor- 
liegt, wird diese exklusiv oder verknüpft zu Null. 
Ist die Rahmenfarbe 0, dann wird sie wieder 14. 
Einschreiben des neuen Farbwertes 

Sprung in den Rest der normalen NMI-Routine 


6000 PHA 
6001 TXA auf den Stapel. 
6002 PHA 
6003 TYA 
6004 PHA 
6005 LDA #$7F Olll 1111 ist das in binär. 
6007 STA $DDOD 
600A LDY $DDOD 
600D BMI $601A 
zweigt 
600F LDA $D020 
eingeladen 
6012 EOR #$0E 
6014 STA $D020 
6017 JMP $FEBC 
601A JMP $FE72 


Sprung in die normale NMI-Routine im Fall, daß 
die Anforderung durch den NMI-CIA kam. 


Programm 1. Ein kleines Testprogramm demonstriert die 
Wirkung einer Unterbrechung: Durch Drücken der RESTORE- 
Taste wird die Rahmenfarbe geändert. 


PIE 


schieben auf den 
Stapel, I-Flagge 
danach 


Tabelle 2. Die Daten zu den letzten Assembler-Befehlen 


dern den Inhaltın 00 und 60, also 
unsere Programmstartadresse 
in der LSB/MSB-Form. Nach ei- 
nem RETURN läuft nun jede 
NMI-Anforderung über unser 
Programm. Nun können Sie es 
ausprobieren, indem Sıe mal die 
RESTORE-Taste drücken. Es ge- 
nügt völlig, alleine diese Taste zu 
betätigen. Das wirkt — sichtbar 
durch die Anderung der Rah- 
menfarbe — in jedem Modus 
und jederzeit. Eine kleine Merk- 
würdigkeit ist, daß man manch- 
mal etwas Geduld aufbringen 
muß, bis man die Wirkung sieht. 
Ich vermute, daß der NMI so 
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schnell erledigt wird, daß sıch 
mehrer NMlIs pro Tastendruck 
ereignen. Man müßte sich noch 
eine kleine Routine überlegen, 
die die Wirkung etwas verzö- 
gert, denn 2 solche EOR-Kom- 
mandos nacheinander heben 
sich gegenseitig auf. 

Damit sei’s für diesmal genug. 
In der nächsten Ausgabe wer- 
den wir uns die Unterbre- 
chungs-Firmware ansehen und 
einige Programmbeispiele vor- 
stellen. Zum Schluß noch wie üb- 
lich eine Aufstellung (Tabelle 2) 
mit den besprochenen Befeh- 
len. (Heimo Ponnath/gk) 
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Dem Klang auf der Spur (Teil 7) 





je meisten modernen digita- 
len Synthesizer haben eine 
Gemeinsamkeit: eine fast un- 
überschaubare Vielzahl von 
Einstellmöglichkeiten. Das ın 
den letzten Folgen beschriebe- 
ne Programm Modulator ist da 
keine Ausnahme. Um die reich- 
haltigen Möglichkeiten auszulo- 
ten, die dieses Programm bietet, 
benötigt man ein komfortables 
Editorprogramm, sonst läßt die 
Motivation beim Jonglieren mit 
Bits, Bytes, PEEK und POKEbald 
nach. Ein solches Programm 
wird hier vorgestellt. Es zeigt die 
über 70 Parameter des SID und 
von Modulator, übersichtlich 
nach Funktionsgruppen geord- 
net, auf dem Bildschirm an und 
erlaubt einen schnellen Zugriff 
auf alle Einstellwerte. Diese Ein- 
stellwerte können geändert wer- 
den, während ein Ton klingt, so 
daß die Wirkung der Einstel- 
lung unmittelbar überprüft wer- 
den kann. Zudem kann man Tö- 
ne im Bereich von zwei Oktaven 
direkt über die Tastatur anspie- 
len. Dabei können zwar nicht 
mehrere Tasten gleichzeitig ge- 
spielt werden, man kann aber 
zwei oder drei SID-Stimmen mit 
einem Tastendruck gleichzeitig 
erklingen lassen. Darüber hin- 
aus verwaltet das Programm 24 
Parametersätze, im folgenden 
Sounds genannt, im Ärbeitsspei- 
cher. Diese 24 Sounds können 
als eine Datei von Diskette gela- 
den, bearbeitet und wieder ab- 
gespeichert werden. 


Wie man den 
Sound-Editor zum 
Laufen bringt 


Das abgedruckte Programm 
kann man beim Listing-Service 
bestellen oder auch selbst ab- 
tippen, was bei 107 Blöcken lei- 
der etwas mühsam ist. Dabei 
kann man die Kommentare na- 
türlich weglassen, denn man hat 
sie im Heft ja bereits vor sich. 
Man sollte dann aber trotzdem 
alle Zeilennummern eintippen, 
da viele Zeilen angesprungen 
werden, auch wenn sie nur Kom- 
mentare enthalten. Reine Kom- 
mentarzeilen kann man mit: 
»(Zeilennummer) REM« oder 
»(Zeilennummer) ! « 
abkürzen. Man hüte sich aber 
davor, eine RENUMBER-Utiity 
auf das Programm anzuwenden. 
Die meisten Sprünge werden 
nämlich nicht über die Basic-Be- 
fehle GOTO und GOSUB abge- 
wickelt, sondern über zwei Ma- 
schinenprogramme GT und GS 
(darüber später mehr). Diesen 
Umstand kann eine RENUM- 
BER-Utility natürlich nicht be- 
rücksichtigen. 
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Die praktische Anwendung der 
bisher erarbeiteten Kenntnisse steht 
im Mittelpunkt dieser Folge: 

Ein universelles Synthesizer-Programm 


bringt den SID auf Trab. 


Der Sound-Editor ist nur zu- 
sammen mit dem in Ausgabe 
4/85 (MSE-Listing) und in Ausga- 
be 5/84 (Assembler-Listing) ver- 
öffentlichten Programm Modu- 
lator lauffähig. Dieses Pro- 
gramm muß auf Diskette als ab- 
solut zu ladende Datei (Bereich 
$C075 bis $C422) unter dem Na- 
men »MODULATOR« vorliegen. 

Im Programm Modulator 
steckt leider noch ein kleiner 
Bug: Es wird der Zeropage-Spel- 
cherplatz $FF verwendet, was 
hin und wieder den Basic-Inter- 
preter stören kann. Wenn man 
statt $FF den vom Betriebssy- 
stem nicht verwendeten Spei- 
cherplatz $02 verwendet, treten 
keine Probleme mehr auf. Im 
Modulator-Code sind zehn Zero- 
page-Ädressen von dieser Än- 


che Kern des Programms ist. 
Der Sound-Editor wird aus- 
schließlich über die Tastatur be- 
dient, wobei sich die meisten 
Funktionen mit einem einzigen 
Tastendruck auslösen lassen. Es 
ist durchgehend "das WYSI- 
WYG-Konzept (What You See Is 
What You Get) verwirklicht, das 
heißt, alle in einer Situation ver- 
fügbaren Kommandos werden 
am Bildschirm angezeigt. Eine 
Ausnahme bilden die sieben 
Kommandos zur Auswahl der 
Untermenüs, die zwar nur im 
Hauptmenü angezeigt werden, 
aber auch in jedem Untermenü 
funktionieren. Man kann also di- 
rekt von einem Untermenü ins 
andere springen. Den Umweg 
über das Hauptmenü benötigt 
man eigentlich nur, wenn man 


derung betroffen. Di@Hiolgen.iImdie= Kommandos nicht mehr 


den vier Basic-Zeilen enthalten 
die zehn Adressen und nehmen 
auch gleich die Änderung vor: 


10 FOR I=1 TO 10 

20 READ AD:POKE AD2:NEXTI 

30 DATA 49339,49344,49734, 
49744,50115 

40 DATA 50129,50162,50168, 
50173,50178 


Der geänderte Modulator- 
Code sollte dann unter dem Na- 
men »MODULATOR« auf Disket- 
te zurückgespeichert werden. 
Jetzt müßte der Sound-Editor, so- 
fern er fehlerfrei eingetippt wur- 
de, laufen. Daessich hier um ein 
Programm handelt, das über- 
wiegend in Basic geschrieben 
ist, ist ein umfangreicher Setup- 
Teil, der etwa 30 Sekunden be- 
ansprucht, leider unvermeid- 
bar. Das Warten wird dann aller- 
dings durch Komfort und durch- 
aus akzeptable Geschwindig- 
keit belohnt. 


Mit 8 Menüs über 
70 Parameter im 
Griff 


Zum Verständnis der Parame- 
ter sei auf Ausgabe 4/85 verwie- 
sen, wo die Funktionen der Mo- 
dulatorkomponenten beschrie- 
ben sind. Der Sound-Editor mel- 
det sich mit dem Hauptmenü 
(Bild 1) mit dem Namen MODU- 
LATOR. Damit soll betont wer- 
den, daß Modulator der eigentli- 


weiß. 

Das untere Drittel des Bild- 
schirms ist in allen Menüs iden- 
tisch. Es zeigt eine stilisierte Kla- 
viatur über zwei Oktaven, der 
auf dem Computer die oberen 
beiden Tastenreihen entspre- 
chen. Mit diesen Tasten kann 
man bis zu drei SID-Stimmen mit 
einem Tastendruck anspielen. 
Mit dem Kommando V undeiner 
Ziffer 1, 2 oder 3 können die zu 
spielenden Stimmen aktiviert 
oder desaktiviert werden. Än- 
gezeigt wird das rechts neben 
der Klaviatur. Die Funktion SU- 
STAIN bewirkt, daß der Ton 
nach dem Loslassen einer 'Ion- 
Taste weiterklingt, sofern ein 
SUSTAIN-Pegel größer als Null 
eingestellt ist. Die GATE-Bits des 
SID werden bei aktivierter 
SUSTAIN-Funktion nicht zurück- 
gesetzt. Mit dem Drücken der 
Space-Taste wird das GATE-Bit 
des Software-Hüllkurvengene- 
rators (Soft-EG) gesetzt, durch 
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Loslassen zurückgesetzt. Der 
Soft-EG wird also durch SPACE 
ausgelöst, vorausgesetzt, seine 
Parameter haben sinnvolle Wer- 
te. Das Auslösen des Soft-EG 
kann man mit Shift Space an die 
Tontasten koppeln, was bei den 
meisten Soft-EG-Anwendungen 
sinnvoll sein dürfte. Auch die 
SUSTAIN-Funktion und die Kop- 
pelung des Soft-EG werden 
rechts neben der Klaviatur an- 
gezeigt. 

Die Beeinflussung der Para- 
meterin den Untermenüserfolgt 
nach einheitlichem Schema: Der 
zu ändernde Parameter wird mit 
den Cursor-Tasten angewählt 
und mit den fTasten verstellt. Je 
nach Anzahl der Parameter sind 
dabei alle vier Cursortasten 
oder nur die Tasten Cursor- 
Links und Cursor-Rechts wirk- 
sam. Auch die Funktionsweise 
der f-Tasten ist einheitlich: Nu- 
merische Parameter werden 
durch fl und f7 in großer und 
durch f3 und f5in kleiner Schritt- 
weite verstellt. Bei nichtnumeri- 
schen Parametern wird die 
Funktion der fTasten am Bild- 
schirm angezeigt. 

Bei numerischen Parametern 
werden bis auf eine Ausnahme 
direkt die Werte der SID- oder 
Modulator-Register angezeigt. 
Bei der Ausnahme handelt es 
sich um die Basisfrequenzen 
der drei Stimmen (Bild 2, Para- 
meter F). Bei dieser Basisfre- 
quenz handelt es sich um die 
Frequenzdestiefstenspielbaren 
Tones (Taste Q). Sıe wird nicht in 
Hertz, sondern in einer musika- 
lisch sinnvollen Notation ange- 
geben. Sie besteht aus Notenna- 
men, einer Oktavnummer und 
einer Verstimmung in Cent. Die 
Oktavnummern bewegen sich 
im Bereich 0 bis 5. Dabeı ent- 
spricht A 4 dem 440-Hz-Ton, der 
in der Musik korrekt »eingestri- 
chenes a« heißt. Ein Cent ist ein 
hundertstel Halbton. Der Para- 
meter bewegt sich von —49 bis 
+50. Die etwas komplizierte Be- 
rechnung der Basisfrequenz in 
Hz und in SID-Registerwerten 
findet man in den Programmzei- 
len ab 3110. 

Alle anderen Sound-Parame- 
ter sind anhand der 
Menübilder, in denen 
sie auftreten (Bild 2 bis 
6), leicht identifizier- 
bar und bedürfen kei- 
ner weiteren Erläute- 
rung. 
Im Menü SOUNDS 
(Bild 7) können ganze 
Parametersätze (e- 
weils 107 Byte, siehe 
auch Tabelle 4) mit 
Namen versehen und 
im Speicher abgelegt 
werden. Ängewählt 
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Bild 5. Untermenü Software-EG 


werden die Sounds hier nicht 
über die Cursor-Tasten, sondern 
über die Tastenkombinationen 
Albis C8. Die 24 Sounds sind al- 
le mit der Parametereinstellung, 
die beim Programmstart vorliegt, 
vorbesetzt. Eine Gruppe von 24 
Sounds kann im Menü DISK (Bild 
8) auf Diskette abgespeichert 
und wieder geladen werden. 


Bemerkungen zum 
Programm 


Es soll hier nicht die Arbeits- 
weise des Sound-Editors im De- 
tailbeschrieben, sondernnurei- 
nige Bemerkungen zum Stil des 
Programms gemacht werden. In 
dem Programm werden sehr 
viele Tastenkommandos akzep- 
tiert, die in verschiedenen Me- 
nüs und bei den verschiedenen 
Parametern auch noch unter- 
schiedliche Bedeutung haben. 
Um in dieser Situation die Über- 
sicht zu behalten (Anliegen des 
Programmierers) und um das 
Programm trotz Realisierung in 
Basic akzeptabel schnell zu hal- 
ten (Änliegen des Anwenders), 
werden die vielen Einzelrouti- 
nen von zentraler Stelle ausüber 
variable Vektoren angesprun- 
gen. Zwar unterstützt Basic mit 
den Befehlen ONGOTO und ON 
GOSUB Mehrfachverzweigun- 
gen, diese sindaberbeiderhier 
in Frage kommenden sehr gro- 
ßen Zahl von Sprungzielen 
schlecht einzusetzen. Die bei- 
den Maschinenprogramme GS 
und GT (siehe auch Tabelle 2) 
erlauben dagegen (Unterpro- 
gramm-) Sprünge zu Zeilen, de- 
ren Nummer ein beliebiger 
arithmetischer Ausdruck oder 
eine Variable, der Sprungvek- 
tor, sein Kann. 
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Die Tastenkommandos wer- 
dennunsehr schnell und aufein- 
fache Weise interpretiert. Der 
ASCII-Code A der zuletzt ge- 
drückten Taste und die Nummer 
M des gerade aktiven Menüs (0 
bis 7) werden als Indizes in eine 
Sprungvektor-Tabelle V% ver- 
wendet. Der gefundene Eintrag 
ist die Zeilennummer der Routi- 
ne, die den Tastendruck bear- 
beitet. Diese Routine wird als 
Unterprogramm aufgerufen. 
Für diesen Vorgang benötigt 
man nur einen einzigen Befehl: 
SYSGSV %(M,A) (Zeile 1550). 

Allen nicht definierten Tasten 
wird über die Tabelle der 
Sprungvektor 0 zugeordnet. Er 
führt in das leere Unterpro- 
gramm ganz am Anfang des Li- 
stings. Die Sprung-Tabelle wırd 
über die Inhalte der DATA-Zeı- 
len ab 9500 im Programm-Setup 
besetzt. Vierstellige. DATAs ste- 
hen für Zeilennummern, drei- 
stellige für ASCII-Codes, zwei- 
stellige wählen ein Menü (dabei 
bedeutet zum Beispiel Ml »Me- 
nü Nr. l« und MA »alle Menüs«) 
und einstellige sind ASCII- 
Zeichen. »ENDE« schließt die 
Tabellen-DATAs ab. Der Pro- 
grammteil ab Zeile 8110 interpre- 
tiert diese DATAs und besetzt 
die Tabelle. 





Eine Ergänzung des Pro- 
gramms um weitere Funktionen 
gestattet sich mit diesem Kon- 
zept sehr einfach. Man schreibt 
ein Unterprogramm und trägt 
die Zeilennummer des Unter- 
programm-Starts zusammen mit 
der Taste, durch die das Unter- 
programm aufgerufen werden 
soll, indie Tabelle ein. Die Hard- 
copys entstanden auf diese Wei- 
se: Ab Zeile 7900 stand eine 
Hardcopy-Routine (im Listing 
hier nicht enthalten). Durch: 
9760 DATA MA,7900,2 
wurde bewirkt, daß in allen Me- 
nüsdurch den Tastendruck Zein 
Hardcopy-Ausdruck ausgelöst 
werden konnte. 

Im Sound-Editor werden noch 
weitere Sprungvektoren ange- 
wendet: Eine f-Taste führt grund- 
sätzlich in die Dummy-Routine 
(leeres Unterprogramm) oder in 
eine der vier Zeilen 2550, 2560, 
2570, 2580. Dort wird ein aktuel- 
ler numerischer Parameterwert 
erhöht oder erniedrigt. An- 
schließend wird in eine der 2] 
Routinen ab Zeile 2600 weiter- 
verzweigt. Die zugehörige Vek- 
torvariable ist PV. Die 21 Einzel- 
routinen bringen den geänder- 
ten Parameter an seinen Platzin 
ein SID- oder ein Modulator-Re- 
gister und geben ihn zudem an 


der richtigen Stelle am Bild- 
schirm aus. 

Der Parameter-Vektor PV wird 
von Parameter-Anwahl-Routinen 
gesetzt, von denen es In jedem 
Menü für jede Parameterart ei- 
ne gibt, zum Beispiel »Filterfre- 
quenz« wählen, Zeile 5200. Der 
Aufruf einer Parameter-Anwahl- 
Routine wird durch die Cursor- 
Tasten ausgelöst und geschieht 
durch einen weiteren Vektor AV. 
Beispiel: »Parameterwahl durch 
Cursor«, Zeile 5130. Von diesen 
Cursor-Routinen gibt es fünf 
Ausführungen, für jedes Menü, 
in denen die Cursor-lasten wirk- 
sam sind, eine. 

Einige Maschinenprogramme 
machen den Sound-Editor 
schneller und übersichtlicher. 
Erwähnt seien dabei Unterpro- 
gramme zum Zugriff auf Doppel- 
bytes von Basic aus rDEEK« und 
»DOKE«). Das lästige Berechnen 
von Low- und High-Byte entfällt 
so. Der »PRINT AT«-Befehl ge- 
stattet es, den Cursor an jede 
Stelle des Bildschirms zu positio- 
nieren, um dort etwas auszuge- 
ben. Die Tabellen 1 bis 4 sollen 
eine kleine Dokumentation des 
Sound-Editors darstellen. Der 
Leser, der das Programm selbst 
modifizieren oder erweitern will 
(zum Beispiel andere oder mehr 
Farben), findet dort die gesuch- 
te Information. 

Das Tabellen- und Vektor-Kon- 
zept wird einen weiteren Äus- 
bau des Programms sehr er- 
leichtern. Das schon einmal an- 
gekündigte Sequenzer-Pro- 
gramm wird bis zum Ende die- 
ses Kurses den Sound-Editor zu 
einem kompletten Synthesizer- 
Programm erweitern, mit dem 
man dann auch virtuose Melo- 
dien mit Modulator-Sounds spie- 
len lassen kann. 

(Thomas Krätzig/ev) 
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Real 
A allgemeine Verwendung, ASCII-Codes 
AD allgemeine Adresse 
AN Auswahl-Nummer bei EG 
(=Al=D2=53=R 4=-EGA) 
AV Auswahl-Vektor bei Parameterwahl durch Cursor 
B allgemeine Verwendung 
CL Startadresse CLEAR (Zeile 0-14) 
DO Startadresse DOKE 
EG Status des Soft-EG (0 = abgekoppelt, —] = angekoppelt) 
R allgemeiner Farbcode 
Fl Code für Normalfarbe 
F2 Code für Hervorhebungsfarbe 
FA Basisadresse Farb-RAM 
GS Startadresse berechnetes GOSUB 
GT Startadresse berechnetes GOTO 
LJK allgemeine Laufvariablen 
L Stringlänge 
LN Nummer des aktuellen LFO 
M aktuelles Untermenü (0 bis 7) 
MO Basisadresse Modulator 
NS Sound-Nummer (0 bis 23) 
(®) Oktave (temporär) 0 bis 5 
OF Tonhöhen-Offset (temporär) -49 bis +50 
PA Parameter-Zieladresse 
PB Farb-RAM-Adresse des aktuellen Parameterfeldes 
PM Maximum+1 des aktuellen (numerischen) Parameters 
PR Startadresse PRINT AT 
PV Sprungvektor zur Weiterverarbeitung des aktuellen Parameters 
PW Wert des aktuellen Parameters 
Pl Schrittweite langsam 
P2 Schrittweite schnell 
RF RES/FILT Inhalt von SID $17 
S Spalte allgemein 
SA Sound-Adresse (Anfang eines Parameterblocks) 


SI Basisadresse SID 

SN Nummer der aktuellen Stimme 

so Basisadresse Sounds 

T Tonnummer (temporär) 0 — 11 

XY allgemeine Verwendung 

Z Zeile allgemein 

ZN Zeilennummer allgemein 

Strings 

A$ Eingabezeichen, allgemeine Verwendung 
FI$ Steuerzeichen Normalfarbe 

F2$ Steuerzeichen Hervorhebungsfarbe 

DN$ Dateiname 

Zahlen-Ärrays 

AD@)  Attack/Decay für 3 Stimmen 

BF(2) Basisfrequenz für 3 Stimmen 

C(2) Controlbyte (GATE aus) für 3 Stimmen 
C1@2) Controlbyte (GATE an) für 3 Stimmen 

O(2) Oktaven für 3 Stimmen 0 bis 3 

OF(2) Tonhöhen-Offset für 3 Stimmen -49 bis +50 
S(2) Status der Stimmen (0 = inaktiv, —1 = aktiv) 
SR(2) Sustain/Release für 3 Stimmen 

T(2) Tonhöhen-Nummer für 3 Stimmen 0 bis 11 
TH@4) relative Tonhöhen 


TN%(255) Tonnummern (0 bis 24) 
TN%(A) = Nummer des Tones bei Tastendruck CHR$(A) 
V%«(7,255) Sprungvektoren 


String-Ärrays 
BL$(6) Obis 6 Blanks 
KF$(8) LFO-Kurvenformen grafisch 


KV$(8) Namen der LFO-Kurvenformen 
MD$(@) Namen der Modulationsquellen-Modi: RESET, HOLD, RUN 
TN$AD) Namen der Töne: 5, C#, DD#,E,EF#,GC#, A A#,.H 


Tabelle 1. Variablen des Sound-Editors 










Aufruf Funktion 










adresse 

GS 828 SYSGS, Zeilennummer Berechnetes GOSUB 

GT 857 SYSGT, Zeilennummer Berechnetes GOTO 

PR 869 SYSPR, Zeile, Spalte, PRINT AT: Positioniert den 

Printliste Cursor an der Position Zeile 

(0-24), Spalte (0-39) und geht 
über zum Basic-PRINT 

DO 897 SYSDO, Adresse, Wert DOKE: Doppelbyte-POKE 
Schreibt einen 16-Bit-Wert 
(0-65536) ab Adresse in den 
Speicher, niederwertiges 
Byte zuerst 

USR 937 USR (Adresse) DEEK: Doppelbyte-PEEK 






Liefert 16-Bit-Wert der 
Speicherstellen-Adresse 
und Adresse +] 


CLEAR: Löscht Bildschirm 
Zeilen 0-14 


NAME: Ausgabe von 10 Zei- 
chen, deren ASCII-Codes 

ab Adresse im Speicher ste- 
hen. Dient zur Ausgabe von 
Soundnamen 


GET: Belegt SID und MO- 
DULATOR mit Parameter- 
satz, der ab Adresse im 
Speicher steht (siehe Tabel- 
le 4) 


PUT: Kopiert Parameter von 
MODULATOR (aber keine 
SID-Parameter!) in Parame- 
terblock ab Adresse (siehe 
Tabelle 4) 











SYSCL 










SYSNA, Adresse 















SYSGE, Adresse 








PU 50276 SYSPU, Adresse 











Alle hier aufgeführten Unterprogramme ermitteln ihre Parameter mit 
Hilfe des Basic-Interpreters. Es sind daher beliebige arithmetische Aus- 
drücke (beziehungsweise String-ÄAusdrücke bei PR) möglich. Es wird 
ein »lIllegal Quantity Error« ausgelöst, wenn die Parameter ihren zuge- 
lassenen Bereich (0-255 beziehungsweise 0-65535) überschreiten. 


Tabelle 2. Unterprogramme zum 
Sound-Editor in Maschinensprache 
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von MODULATOR benutzt 





$FB-$FE 






















$9E-$9F von NA, GE und PU benutzt 
USR-Vektor $311-$312 belegt mit Startadresse von DEEK 
($03A9) 
Kassetten- $33C-$3D4 Maschinenprogramme 
Puffer GS, GT, PR, DO, USR (DEEK), CL 
Basic 60800-$08FF (obere Speichergrenze herunterge- 
setzt) 
Sounds $9000-$9A07 24 Parameter-Blöcke & 107 Byte 
Freier RAM- $C000-$C070° MODULATOR-Parameter 
Bereich $C071-$C074 MODULATOR-interne Variablen 
$C075-$C422 MODULATOR-Code 
$C423-$C473 Maschinenprogramme NA, GE, PU 






Tabelle 3. Speicherbelegung durch den Sound-Editor 






Es werden 24 Parameter-Blöcke der Länge 107 Byte im Bereich 


















69000 bis $9A08 verwaltet. 
Struktur eines Parameter-Blocks 
Relativadresse Parameter Variable in 
Basic (falls 
dezimal hex vorhanden) 
0— 72 $00—$48 Modulator-Parameter keine 
73— 74 $49— $4A Basisfrequenz Stimme | BF(2) 
75 $4B Status Stimme ] S(2) 
(0 = inaktiv, 1 = aktiv) 
76 $4C unbenutzt 
77 $4D Control Register Stimme | C(2) 
78 $4E Attach/Decay Stimme 1 AD(2) 
79 $4F Sustain/Release Stimme |] SR(2) 
80 — 86 $50—%56 analog Stimme 2 (7 Byte) 
87— 93 $57—$5D analog Stimme 3 (7 Byte) 
94 $5E Resonanz/Filter RF 
95 $5F Status des Soft-EG 
(0 = abgekoppelt, | = ange- EG 
koppelt) 
96 $60 Status Sustain SU 
(0 = aus, 1 = an) 
97 — 106 $61 — $$A Name des Sounds (l0 Byte) keine 






Tabelle 4. Speicherung der Sound-Parameter 
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@ IF A>i1 THEN RETURN :REM DUMMY-RODUTINE <139> 2988 Y=-128*(Y=B) :AD=19024+(1+R) #40+25 <169> 41088 SYS PR,6,1,F2#;"SH V";Fis#;" STIMMEN" <189> 
1000 REM rar aratak aka EEE <192> 2985 FOR I=AD TO AD+S <187> 4185 SYS PR,7,1,F2#3 " {SSPACEIF";Fi$;" FILT 
1805 REM *#* RR <125> 2998 : FOKE I,(FEEK(IIAND 127)0R Y <254> ER/LAUTSTAERKE" <BS3> 
1815 REM *** *r%* <1335> BT nn ia 0 oa vhs Venen om = nase map <197> 4115 5YS PR,?, 1 ‚F28; " {3SPACE}H";Fi$; " HUEL 
1828 REM **#* FUER DIE PARAMETER *+r**+ <B47> 30B5 REM LAUTSTAERKE <156> LKURVE (SOFT-EG) " <OB&4> 
1050 REM ###* *** <149> 3815 L=LEN(STRE(PW)) <18B> “ <945> 
1040 REM **#* ... <159> a EEE EEE <247> 4130 SYS PR,12,1,F2$; " (SSPACEID";Fi$;" DIS 
1045 REM KHK T HH <148> 3852 REM BASISFREQUENZ <ı184> K" <105> 
1055 REM FALLS VON MENUE 7 GEKOMMEN, <971> 3056 REM FS OFFSET ERHDEHEN <@24> Be RE ne en en Seen 21223 
1068 REM DORTHIN ZURUECK <248> 3BS58 OF=OF+i: IF OF{=SB THEN 5118 <868> 4218 REM BILD ZEILEN 15-23 <235> 
1065 IF M=7 THEN 7665 <109> 3062 OF=-49:60T0 3876 <243> Boa REES re re ln ee <142> 
1138 IF A=® THEN As=i1 :LOAD"MODULATOR" ‚8, 1 <112> 3058 OF=OF-1:IF OF>=-49 THEN 3118 <BRDB> 4258 SYS PR, 15,26,F28; g" <170> 
1155 FOKE 565,144:CLR:REM B.-GRENZE 98088 <B> 387& REM TONNUMMER ERHOEHEN <178> 4278 SYS PR,16,18,Fi$;"EG (AB-)KOPPELN" <Q10> 
1165 DIM BF(2),T(2) ,0(2),DF(2),S(2) <1085> Ssa8B8 T=8:60T0 35078 <217> 4298 SYS PR,16,32,F1$; "EG GATE" <841> 
1170 DIM C1(2),C(2) ,AD(2) „SR(2) <141> 3982 IF A<>135 THEN RETURN <B21> 4292 SYS PR,17,1, F2$;"x" <164> 
1175 DIM BL$(6) ,„KV$ (3) ,„KF$(6) „MD$ (5) <156> 3884 REM TONNUMMER ERNIEDRIGEN <152> 4294 SYS PR,17,10,F1$; "HAUPTMENUE" <121> 
11808 DIM TNF#(11) <159> 3886 T=T-1:IF T>=B THEN 3118 <1984> 4308 SYS FR,19,8,F2#; <B17> 
1185 REM <052> 5088 T=11:60T0 3996 <D25> 4318 FOR I=1 TO 4 <197> 
1198 GOSUB 88280 :REM INITIALISIERUNGEN <205> 3098 REM OKTAVE ERHOEHEN <197> 4328 : PRINT" <SPACE,RVSDN,SPACEIR 2232 
15808 REM======>===S5=szz2e= 2222223 <211> 599& REM OKTAVE ERNIEDRIGEN <169> PB@B#Bt2; B=" <238> 
1518 REM HAUPTSCHLEIFE, SPRUNGVERTEILER <252> 30898 0=0-i:IF 0O>=B THEN 3118 <181> 4348 SYS PR,19,8,; <157> 
1528 REM========22mmmmmno 5m S2= <231> 5188 0=5: T=18 <255> 4358 FOR I=1 TO 2 <145> 
1558 GET As: IF Af="" THEN 15508 <149> 311® REM BASISFREQUENZ BERECHNEN <B845> 4368 : PRINT" (SPACE „RIGHT ,SPACE ‚RIGHT ,SPAC 
1548 A=ASC (AF) <121> 3112 IF T=11 AND 0=5 THEN T=8:0=8 <B84> E,SRIGHT,SPACE „RIGHT ‚SPACE „RIGHT ,SPAC 
15598 SYS 65,V%(M,A) :REM BERECHN. GOSUB <108> 3114 BF=448*2t1(0-4+(T-9) /12+0F/1208) <895> E,3RIGHT,SPACE „RIGHT ‚SPACE,SRIGHT,SPA 
En nn Tee Senden, NE ee eh San 4370 PRINT" (SPACE ,RIGHTI2{RIGHTIS{SRIGHTYS 
2825 POKE 458,8 <126> 3124 SYS PR,S+SN,S,F2$;0 <219> 4388 SYS PR,19,31,F1$; "AKTIV: " <146> 
2838 F=TH(TN% (A) ):AD=MO+72: X=PEEK (AD) <847> 35126 SYS PR,3+SN,2,TN#(T) <aSSs> 4398 FOR I=8 TO 2 <185> 
2835 IF S(B) THEN SYS DD,MO „FBF (8) :POK 3128 SYS PR,3+SN,5S,RIGHT#(" "+STRF(OF), SF) <2B4> 4408 : A$=RIGHT$ (STR$(I+1),1) <B66> 
2048 IF St1) THEN SYS DO,MO+7 „F#BF(1):POK hl I <892> 4428 GOSUB 3840:6G0SUB 3749 <070> 

E SI+11,C1(1) <165> 3155 REM PULSWEITE STIMME <127> 4438 RETURN <237> 
2058 IF St2) THEN SYS DO,MO+14,F*BF (2) :POK 3168 SYS DO,FA,FW <837> 4508 REM=====0==e2202000002=2=2220=== eo <151> 

E SI+18,C1(2) <230> 31645 SYS PR,S+SN,9,F2$; RIGHT$ (" (2SPACE}>"+S 4585 REM UNTERMENUE STIMME <@16> 
2098 IF EG THEN POKE AD,X OR 1 <113> TRE(PW) „4) <225> 4518 REM=====-=S0me2020202000==== 222000000 <161> 
2128 IF PEEK(203)<>64 AND PEEK(178)=-® THEN 351.735 RE Meet = — nme tenge denn nenn nen onen ms <117> "sFi$ <a55> 

21208 «083? SIE0, REM. A S0727 4528 PRINT" (SSPACE IF (4SPACEIPWISSPACEIA (28 
2138 POKE AD,X AND 254 <BöB> 3185 AD(SN)=(AD(SN)IAND 15) OR PW#ilö <237> PACE)D{2SPACE}IS {2SPACE?R CONTROL PORT 
21408 POKE SI+4 „C(D) <181> 3198 POKE PA,AD(SN) <077> A" <084> 
2150 POKE SI+11,C(1):POKE S5I+19,C(2) <B1&6> 3195 SYS PR,S+SN,14,F2$; RIGHT$ (STR$ (PW) .2) <857> A525 PRINT" SLOCCCORLLCCRLCRECHRLERLCRELCEC 
2160 POKE 45B,128:RETURN <057> 3208 RETURN <825> ECRCECCS" <238> 
25008 REM==========m=mmmes==e=2oooas=eememmn <191> 3285 REM-------- -— - -—-- - - - - - -mmmmenn no <147> 4538 FOR I=1 T0 3 <071> 
2528 REM VERTEILER EINZELRDUTINEN <895> 3215 AD(SN)=(AD(SNIAND 248) OR PW <B40> SPACE}B{2SPACEYB{2SPACEIB{7SPACE)B{4S 
2538 REM========= 222222222 220 <221> 3228 POKE PA,AD(SN) <187> PACE}Y2" <119> 
2558 PW=PW+P2: IF PW>=PM THEN PW=PW-PM <1534> 3225 SYS PR,3+SN,17,F2#;3 RIGHTS (STR&E(PW) „2) <B9B> 4548 NEXT I <152> 
2568 PW=PW+Pi: IF PW>=PM THEN PW=PW-PM <144> 3235. REM m <177> RRESSCCH" <144> 
2578 PW=PW-P1:IF PW< B THEN PW=PW+PM <125> 3245 SR(SNI=(SR(SN)AND 15) OR PW#16 <1805> 4555 SYS PR,8,26, " BBBRBFCCRING" <177> 
2575 SYS GT,PV <B356> 3259 POKE PA,SR(SN) <169> 45608 SYS PR,9,1,F2$5 "F1{2SPACE>++";Fi$ <205> 
2588 PW=PW-P2:IF PW£ ® THEN PW=PW+PM <1356> 3255 IT tt Flle ‚2) <114> 4565 SYS PR,9,26, " BBBBZCECTEST" <a18> 
2585 SYS GT,PV <B46> 3268 R . 22227 4570 SYS PR,10,1,F2$; "FS{2SPACEI+";Fi$ <214> 
2688 REM---------------------- <052> ITS 2 Fri nee kogmanlirn ugs Para Tagen er? <207> 4575 SYS PR,18,26," BRRZCCTRIAN" <184> 
2605 REM LFOF <237> 3270 REM R 21797 4580 SYS PR,11,1,F2$; "FS{ZSPACE}-";Fi$ «229 > 
2618 SYS DO,PA,PW:L=LEN (STR$(PW)) <BD5> 3275 SR(SN)=(SR(SN)IJAND 248) OR PW <164> 4595 SYS PR,11,26," BEZLCSAWTOOTH" <252> 
2628 SYS PR,S+LN,4,BL$ (6-L) ;F2$; PW <158> 5288 FOKE PA,SR(SN) <199> 4598 SYS PR,12,1,F2$3 "F7{2SPACE)--";Fi# <831> 
2625 RETURN <217> 3285 SYS PR,3+SN,25,F2#; RIGHTS (STR&E(PW) ,2) <147> 4595 SYS PR,12,26," BZCCSQUARE" <157> 
BG SID 1 REES rennen en ur eenepen <882> 5298 RETURN <116> 4608 SYS PR,13,26,"ZECNOISE" <142> 
2655 REM LFOP <821> SEO! REMIS et ana Gare 275 F as 4602 REM PARAMETER ANZEIGEN <140> 
2648 POKE PA,PW=:L=LEN(STR&£(PW)) <095> 3385 REM CONTROL (BIT 7-5) 1 =; z = 
2858 SYS PR,S+LN,„11,BL#(4-L) ;F2$;PW <252> 3351@ IF A<>1I3 AND A<>134 THEN 3555 <B34> ee Lee in R 
2655 RETURN = <247> 353515 REM BIT SETZEN <B8728> 4608 : T=T(SN) :0=0 (SN) :OF=OF (SN) <028> 
26h REM== 77m in mb nun <112> 3328 C(SN)=C{SN) OR 21(7-S) <854> 46818 : GOSUB Z122:REM F <178> 
2665 REM LFOA <B36> 3325 C1(SN)=C(SN) OR 1 <B855> 4612 : PW= (USR (MO+7#SN+2)):GOSUB 3165 <062> 
2570 POKE PA,PW:L=LEN(STR$ (PW) ) <125> 33350 SYS PR,S+SN,26+5,F2$;"1":60T0 3355 <149> 4614 : PW=INT(AD(SN) /16) :GOSUB 3195 <213> 
2688 SYS FR,S+LN,16,BL8(4-L); F2$; PW <B11i> 3335 REM BIT RUECKSETZEN <2153> 4616 : PW=AD(SN)AND 15 :GOSUB 3225 <204> 
2685 RETURN . <B21> 334B C(SN)=C(SN) AND 255-21 (7-5) <145> 4618 : PW=INT(SR(SN) /16) :GOSUB 3255 <246> 
I 1 I 1 RER Een er een TER FETTE Te MENT Je NO <142> 3345 CI(SNI=SC(SN) OR 1 <B76> 4628 : PW=SR{SNIAND 15 :GOSUB 3285 <246> 
2695 REM LFO KURVE <142> 33558 SYS PR,S+SN,26+5,F28#; "8" <821> 4622 : REM CONTROL-BYTE (7 BIT) <218> 
27808 IF A>136 OR A<133 THEN RETURN <829> SSSS REM CONTROL-BYTE ZUM SID <B21> 4624 : B=C(SN) :A=128 <877> 
2785 B=A-1335 :REM B=9,1,2,3 <164> 33560 X=C(SN):IF SU THEN X=C1(SN) <288> 4626 : SYS PR,3+SN,26,F1$; "ODBRGRDO" <114> 
2718 POKE PA,„(PEEK(PA)AND 2351)0R (B*8) <885> S565 POKE SI+7=SN+4,X:RETURN 3872 4528 : FOR $=7 TO H STEP = <119> 
2715 SYS PR,S+LN,21,F2$;KV$(B) <114> 3378 REM nn nn <857> 4630 : IF(B AND A)THEN SYS PR,S+SN,33-8,"1 
2717 SYS PR,6 354 ,F2#;KF$(B) :RETURN <239> 3375 REM PORTA <881> " <950> 
rer ee ee ee <172> 338B POKE PA,PW:L=LEN(STRS$(PW)) <B58> A632 2 A=A/2:NEXT S <134> 
2725 REM LFD MODUS <167> 3385 SYS PR,S+SN,S4,BL$(4-L) ;F2$#; PW <214> 4634 : PA=MD+7#SN+4: PW=PEEK (PA) <1Z6> 
2738 IF A>135 OR A<1335 THEN RETURN <858> 5398 RETURN <217> 4636 : GOSUB 3370:REM PORTA <017> 
2735 B=A-132 :REM B=1,2,5 <1B1> 35989 REM=s===2=2=2=========S5S55mzeezoommos <171> 4638 NEXT SN <083> 
2748 FOKE PA, (PEEK(PA)AND 249)0R(B*2) <118> 3518 REM STIMME (DES-) AKTIVIEREN <189> 4640 F2$=A$ <197> 
2745 SYS FR,S+LN,28,F2$; MD$ (B) :RETURN <079> 3528 REM==e=z=2==2=22========555 5 zememmmce <191> 4642 SN=B:AV=4700:SYS '6S,AV: RETURN <002> 
27580 REM smeaananussnnnmnemnn <202> 3525 SYS FPR,15,18,F2$; "STIMME 1,2,3" <9553> 4650 a ea Der ee FE REIT TE <062> 
2755 REM EG ADS REGA (AN=B-4) <141> 35358 GET A$: IF A$=""THEN 355398 <111> 
2760 POKE PA,PW:L=LEN (STR$ (PW) ) <213> 3540 IF Af="i"OR A$="2"OR Afe"3"THEN 356B <232> Fre Het a Fe 
2765 SYS PR,7,5,BL$(4-L) ;F28; PW: RETURN <212> 3558 GOTO 3598 <859> 4656 SN=SN-1:IF SN{® THEN SN=2 <135> 
277 REM nn es nn nn namen nn <222> 3568 I=VAL(AS)-i :StI)=NOT S(I) <181> 4658 GOSUB 5815:5YS GT,AV <218> 
2775 REM EG FORM <048> 3578 IF StI) THEN PRINT CHR$(18); <115> 4660 REM RUNTER “ 2 <181> 
2788 B=-(A>134):REM Fi,F3 B=9 F5,F7 Bei <208> 3588 SYS PR,21,31+2*1I,Fi*;A$;CHR$(146); <201> Ab&b2 SN=SN+1:IF SN>2 THEN SN=B <138> 
2735 POKE PA,(PEEK(PA)AND 247)0R(B*B) <167> 3598 SYS PR,15,18,F1#; "STIMME 1,2,3" <118> 4664 GOSUB 5815:5YS GT,AV <224> 
2790 SYS PR,7,29,F2#;3 CHR$ (43+2*B) <118> 35975 RETURN <167> 4566 REM RECHTS 8 <164> 
2795 RETURN <131> 3488 REM===2==22 2255-2 snnemenoe <B16> A668 IF AV<>48BD THEN 4674 <D36> 
28180 REM--—-==munmennnnnen mm <BQ&> 5618 REM SOFTWARE-EG AUSLOESEN <158> 4670 S=S+1:IF S>6 THEN AV=4910 <064> 
2815 REM EG MODUS <172> 3528 REM=e====2=2==2mmmz22S222Szummsezomes <B3&5> 4672 GOTO 4678 <180> 
2828 IF A>135 OR A<133 THEN RETURN <149> 3630 POKE 659,64 <2B84> 4674 AV=AV+30: IF AV>4910 THEN AV=4700 <215> 
2825 B=A-132 :REM B=1,2,53 <192> 564@ AD=M0+72:X=PEEK (AD) :POKE AD,X OR 1 <195> 4676 IF AV=48808 THEN $=® <218> 
2830 FOKE PA, (PEEK(PA)AND 249)0R(B#2) <209> 3658 IF PEEK(283)<>64 AND PEEK(19B)=B THEN 4678 S0SUB SB1S:SYS GT,AV <238> 
2835 SYS PR,7,33,F2#; MD£ (B) :RETURN <1802> 5658 <B12> 4688 REM LINKS <1B6> 
2848 REM---- ——— — en nn ne 7 m—m——m <837> 364B POKE AD,X AND 254:POKE 658,128:RETURN <855> 4682 IF AV<>4888 THEN 4688 <a55> 
2845 REM FILTER FREQUENZ <257> BE ee TEE <116> 4684 S=S-i:IF S<® THEN AV=4858 <078> 
2858 POKE PA,PW AND 7:POKE PA+1,INT(PW/8) <BB89> 3718 REM SOFTWARE-EG AN-/ABKOPPELN <198> 4686 GOTO 4692 <199> 
2855 L=LEN(STR$S(PW)) <aD0> 3728 REMe=====2 22mm mmannnn <1356> A688 AV=AV-30: IF AV<4700 THEN AV=4910 (232> 
2868 SYS FR,5,2,BL$(5-L);F28;PW: RETURN <B18> 3738 EG=NOT EG <818> 4690 IF AV=4888 THEN S=6 <238> 
28655 REM=-=omnn—nnnnn nam nnuananmnnnmnun <B&2> 3740 IF EG THEN PRINT CHR$(18); <189> 4692 GOSUB S81S:SYS GT,AV <252> 
2878 REM FILTER RESONANZ <0D&> 3758 SYS PR,23,31,Fi1$; "SOFT-EG {RVOFF}":RET 2708 REN nennen nm <112> 
2875 RF=(RF AND 15) +16*PW:POKE PA,RF <B24> URN <17B8> 4702 REM BASISFREQUENZ WAEHLEN (229 > 
2888 L=LEN(STR$(PW)) <D25> 3B0O8 REM====-=-=-=-=-==2=2 2255522 <216> 4704 PB=FA+40%* (SN+3) +2 <162> 
28985 SYS PR,S,9,BL#(3-L); F2£; PW: RETURN <B48> 3818 REM SUSTAIN-MODUS EIN/AUS <879> 4706 FOR I=PB TO PB+5:POKE I,F2:NEXT <017> 
2898 REM---- - ————nnnn-nnn - — — zoresen- <097> 3828 REM=====2=22==55= 3 I zen <236> 4708 T=T(SN) :0=0 (SN) :OF=OF (SN) <070> 
2895 REM FILTER SCHALTER <aB85> 3858 SU=NOT SU <174> A718 PA=MD+74SN: PV=3058: RETURN <167> 
2988 IF A>1i36 OR A<X135 THEN RETURN <230> 3848 IF SU THEN FRINT CHR$(18); <B&2> 4738 RENM---— <142> 
29085 B=A-1335 :REM B=9,1,2,53 <189> 3858 SYS PR,22,31,F1$; "SUSTAIN{RVOFF}" <129> 4732 REM PULSWEITE WAEHLEN <227> 
2910 X=21B:X1=255-X:REM MASKEN <849> 3858 IF NOT SU THEN 2148 <198> 4734 PB=FA+40%# (SN+3) +9 <199> 
2915 Y=RF AND X <824> 35878 RETURN <187> 4736 FOR I=PB TO PB+S:POKE I,F2:NEXT <845> 
2928 RF=(RF AND X1)OR(X-Y):POKE PA,RF <897> 408808 REM=======-==-=2222=2= sn. <161> 4738 PA=MO+7#SN+2: PW=USR (PA) :PM=4896 <005> 
2925 Y=-128% (Y=9) :AD=1024+(5+B) #40+15 <117> 4810 REM HAUPTMENUE <Ba8> 4748 Pi=1:P2=SB: PV=3150: RETURN <240> 
2938 FOR I=sAD TD AD+S <1354> 4020 REM=====2=====2==>>— 22 55EsER 12222 <181> ATEB.REM a — — nn <172> 
2935 :z FOKE I,„(PEEK(I)AND 127)0R Y <199> 42338 M=8:PV=9:5YS CL:PRINT "tHOME}";Fi$ <B37> A762 REM ATTACK WAEHLEN <247> 
2948 NEXT.: RETURN <209> 4848 PRINT" sLECCECCCECCCCCCclecccEEtsEnEnE 4764 PB=FA+40%# (SN+3) +14 <817> 
a nn a a Eee <142> a EN ee <126> 

M FILTER MODUS <ı11B> 4045 PRINT" B{RV Pr are 7 

2985 IF A>136 OR A133 THEN RETURN <029> R{1OSPACE ‚RVOFF YA" * <152> Listing »Sound-Ed ıtor« 
2 =A-129 :REM B=4,5,6,7 <185> 4058 PRINT" B{RVSON,SSPACE}THOMAS KRAETZ . 
2945 2e2 1B: X1=255-X: REM MASKEN <104> (7SPACE 1985 5SPACE ‚RVOFFI2" <234> (Fortsetzung auf Seite 139) 
2978 FW=PEEK(PA):Y=PW AND X <149> 4055 PRINT" ZECLECECTECEELCELEECECEECEELEE . . . 
2975 FOKE FA,(PW AND X1)OR(X-Y) <139> ECECCCcH“ <153> Beachten Sie bitte Seite 77. 
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4766 
4768 
4770 
4798 
4792 
4794 
4796 
4798 
4900 
48208 
4822 
4824 
4826 
4828 
4838 
485D 
4852 
4954 
4956 
4858 
4868 
48808 
4882 
4884 
4886 


4888, 


4918 
4912 
4914 
4916 
49718 
4920 
5aD® 
SaDS 
Ssa1® 
5015 


sqa28 
5025 


5030 
3035 
5240 
5B45 
552 
5255 
SBad 
5955 
5070 
5875 
SBBR 


5985 
Sarg 


5095: 
sıon 


5182 
5184 
51096 
5198 


5110 
. 5112 


Sı114 
S11ö 
5118 


5120 
5122 
5125 
5130 
51535 
5140 
5145 
5150 
5155 
5160 
5165 
5170 
5175 
5180 
5208 
5205 
521® 
5215 
5220 
5225 
5250 
5255 
5248 
5265 
5278 
5275 
5300 
5305 
s312 
5315 
5320 
5325 
5330 
5350 
5355 
5360 
5365 
557D 
5375 
S5358D 
5408 
5405 
5410 
5415 
5420 
5425 
5508 
5595 
5518 
5515 
5528 


3525 
3538 


39535 


POKE FB,F2:POKE PB+1,F2 
PA=SI+7#SN+S:PW=INT (AD (SN) /16), 
PM=16:P1=1:P2=1:PV=3175:RETURN 


REM DECAY WAEHLEN 

FB=SFA+40# (SN+5) +17 

POKE PB,F2:POKE PB+1,F2 
PA=5I+7*SN+5:PW=AD (SN)AND 15 
PM=16:Pi=1:P2=1:PV=3295:RETURN 


REN SUSTAIN WAEHLEN 

PB=FA+40% (SN+3) +20 

POKE PBE,FZ2:FDKE PB+1,F2 
PA=51+7#+SN+6: PW=INT (SR (SN) /16) 
PM=15:P1=1:FP2=1:PV=32I5: RETURN 


REM RELEASE WAEHLEN 

PE=FA+40% (SN+3) +23 

FOKE FB,F2:POKE PB+1,F2 
PA=S1+7#+S5N+5:PW=SR(SN)AND 15 
FM=16:P1=1:P2=1:PV=3265: RETURN 


REM CONTROL-BYTE WAEHLEN 
FB=FAr40# (SN+3) +26+5 

FOKE FB,F2 

FPA=S1+7%#SN+4: PV=3380: RETURN 


REM PORTA WAEHLEN 

PB=FA+40* (SN+3) +35 ; 

FOR I=B TO 2:POKE PB+I,F2=:NEXT 
FA=MD+7#SN+4: PW=PEEK (PA) :PM=256 
P1=1:P2=190:PV=3578: RETURN 


M=2:PV=9:SYS CL:PRINT" {HOME ,RVOFF}";F 
1 

PRINT" FILTER/LAUTSTAERKE" 

PRINT" SELCECRECEEERECCCELECRESCEECER 
Lcccz" 

PRINT" BFILTFR RES BSCHALTERB MODUS & 
LAUTE" 

PRINT" GECCCCH-LLEcC+E £ccc 
ECCcH" 

FRINT" B{SSPACEIRB{SSPACEYE FILT1{2SPA 
CE}IB{SSPACE}ILF {2SPACE)YB{ASPACEYB" 
PRINT" SLLCLScFecccecH FILT2{2SPACEYIB{Z 
SPACE BP (2SPACE )GLCLCK" 

PRINT" B{11SPACE>B FILTS(2SPACE)ALSSP 
ACEIHP {2SPACE}RB" 

FRINT" B{11SPACE?EB FILTEX B{2SPACEYSO 
FF R" 

PRINT" ZECECCEECECEFECCCELECFECLCEEEK 
“ 


ZELLE 








PRINT F2$;" F1";F1$; " (4SPACE)++{6SPAC 
E>FILTI {6SPACEILP {4SPACEI++" 

PRINT F2$;5" FZ";Fi1$; " (4SPACE)+{7SPACE 
IFILT2£6SPACEIBP {4SPACEI+" 

PRINT F2$;" FS";F1$; " (4SPACE}3- {7SPACE 
IFILTSL6SPACEYHP {4SPACEI-" 

PRINT F2$;" F7"zF1$; " {4SPACE}- (7SPACE 
>FILTEX (4SPACEYSOFF {3SSPACE}-——" 

PW= (PEEK (MO+21)AND 7) +8*PEEK (MO+22) 
SYS PR,S, 7-LEN(STR$(PW)) „PW 

PW=INT (RF/16) 

SYS PR,S,12-LEN (STR$ (PW) ) „PW 


"IF RF AND 1 THEN SYS PR,S5,15," {RVSON} 


FILT1ZSPACE ,RVOFF}" 

IF RFOAND 2 THEN SYS PR,6,15," {RVSON} 
FILT2<{SFACE ,„RVOFF}" 

IF RFAND 4 THEN SYS PR,7,15,"{RVSON} 
FILTS{SPACE ,RVOFF}" 

IF RF AND 8 THEN SYS PR,8,15," {RVSON? 
TILTEX {RVOFF}" 

PW=PEEK (MO+25) 

IF FW AND 1& THEN SYS PR,5,25," {RVSON 
„SPALE}LP {SPACE ,RVOFF}" 

IF PW AND 32 THEN SYS PR,6,25," {RVSON 
‚SPACE >BP {SPACE ,‚RVOFF}" 

IF PW AND &4 THEN SYS PR,7,25," {RVSON 
‚ SPACE}HP (SPACE „RVOFF}" 

IF FW AND 128 THEN SYS PR,8,25,"{RVSO 
NFSOFFARVOFF}" 

PW=PEEK (MO+23) AND 15 

SYS FR,S,34-LEN (STR&E (PW)) „FW 
AV=5200:5YS 65,AV: RETURN 


REM FARAMETERWAHL DURCH CURSOR 

REM RECHTS 

AV=AVY+SB: IF AV>540B THEN AY=-52ZB8 

G0TO 5185 

REM LINKS 

AV=AV-SQ: IF AV<S2BB THEN AV=540D 
GOSUB 5815: A=PB-FA-2090 

IF A<>15 AND A<>25 THEN SYS GT,AV 

FOR J=1 TO 3:FB=PB+40:G0SUB 5815:NEXT 
PB=PB-1290:5YS GT,AV 


REM FILTERFREQBUENZ ANWAEHLEN 
PB=FAr2983 

FOR I=PB TD PB+3:POKE I,F2:NEXT 
PA=MOrZ1:PW=PEEK (FA) +8*PEEK (PAt+1) 
PM=2048:Pi=1:P2=SB: PV=2850: RETURN 


REM RESDNANZ ANWAEHLEN 
FB=FA+218 

POKE. PB,FZ:POKE PB+1,F2 
FPA=5I+23: PW=INT (RF/16) 
PM=16:Pi=1:P2=1:PV=2875: RETURN 


REM SCHALTER 'ANWAEHLEN 
PB=FAt215 


FOR I=8 TO 128 STEPF 48:FOR J=B TO 5 
: POKE PB+IrJ,FZ:NEXT=zNEXT 
PA=SIr23:FW=RF AND 15 

PV=2908: RETURN 
RE — — — 
REM MODUS ANWAEHLEN 

PB=FA+225 

FOR I=@ TO 1208 STEP 408:FOR J=@ TO 3 
» FOKE FB+I+J,F2:NEXT=:NEXT 

FA=MO+23 

PV=2955: RETURN 
REM--------- === --- - 
REM LAUTSTAERKE ANWAEHLEN 

PB=FAr232 

POKE PB,F2:POKE PB+1,F2 


PA=MO+23:PW=PEEK (FA) AND 15 
PM=16:Pi=1:P2=1:PV=3818: RETURN 
REM==========2=2=2=2=2=2=m=m===2=2222 22.2222 
REM UNTERMENUE LFD 
REMs==s=zs=22222Ss2zuzuzsuuuuEsuzzeczeooee 
M=3:5YS CL:PRINT" (HOME ,„RVOFF}"; Fi; 


PRINT" {SSPACEILECCECERECCERCECCRECCEE 
ERELCCCS" 

PRINT" {3SPACEIB LFOF BLFOPBLFOABKURVE 
ZMODUSE" 

PRINT" sC+CLelclc+tlccl+Etcc+clcEccEcHect 
LC+tectS" 

FOR Z=3 TO 97 
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<D95> 
<194> 
<2097> 
<202> 
<195> 
<a5ß> 
<1257> 
<2197> 
<235> 
<252> 
<162> 
<D74> 
<155? 
<B31> 


<210> 
<B0&6> 
<154> 
<187> 
<185> 
<856> 
<B45> 
<837> 
<9058> 
<158> 
<246> 
<a54> 
<B657> 
<B92> 
1717 
<127> 
<145> 
<185> 
<141> 
<098> 
<151> 


<158> 
<198> 


<206> 
<149> 
<124> 
<aAa0> 
<125> 
<172> 
<145> 
<078> 
<oa4> 
<172> 
<190> 


<219> 
<1S5> 
<B71> 
<aaS> 
<125> 


<B882> 
<087> 
<a93> 


<220> 
<032> 


<222> 
<213> 
<227> 


<141> 
<D&4> 
<152> 
<038> 
<0352> 
<211> 
<128> 
<189> 
<14B> 
<271> 
<187> 
<207> 
<aS58> 
<068> 
<154> 
<1B2> 
<193> 
<128> 
<B14> 
<168> 
<a52> 
<152> 
<B45> 
<158> 
<B84> 
<221> 
<Zz10> 
<202> 
<059> 
<2253> 
<135> 
<B&b> 
x815> 
<209> 
<252> 
<169> 
<B18> 
<185> 
<116> 
<BaO1> 
<B14> 
<B47> 
<155> 
<067> 
<255> 
<125> 
<B887> 
<131> 
<B14> 
<141> 
<B> 


<179> 
<162> 


<2S50> 
<aB1> 


5540 


5545 
5550 


Iso 


5560 
5565 
5578 


5575 
55B8 
35585 
55978 
5595 
fe7=12]9} 
5685 
5618 
S61S 
5620 
5625 
5630 
5640 
5645 
5658 
9653 
56878 
5675 
5680 
5685 
5698 
5695 
5788 
5705 
5718 
5715 
5720 
5725 
5800 
805 
5818 
S815 


5820 
5825 
5838 
5855 
5848 
5845 
58358 
5855 
5860 
5865 
5878 
5875 
5888 
5885 
5878 
5895 
5708 
5985 
5718 
5915 
59728 
59725 
5938 
5935 
5940 
5945 
5758 
59755 
5948 
5965 
sBHaB 
6810 
6020 
6058 
8840 
sp5D 


[214 729%] 
6070 


5080 


&89D 


5108 
&118 
61208 
615380 


6148 
6158 
&61&B 
6178 
6180 
6198 
6218 
6228 
6258 
6248 
63580 
6585 
6318 
6315 
6528 
6325 
65338 
6335 
6548 
6545 
6550 
65378 
6375 
63838 
6385 
6378 
6575 
8400 
6405 
6418 
6415 
6420 
6425 
64538 
6435 
6440 
6445 
6450 
6455 
6468 
6500 
6518 
6528 


: SYS PR,Z,1,"A B(6SPACE}A(A4SPACEYB(A 
SPACE }B{&SPACE > B{SSPACE >B{4SPACE)B" 
NEXT Z 

SYS PR,18,1,"ZCRECCCEECFELCCFECCCFECCE 
LOCFECSCCFECCEN 

PRINT F2$;" Fi1";F1$; " (25PACEI++ {5SPAC 
E}++ {3SPALE }++ {2SPACEFTRIAN {2SPACE}IRE 
SET" 

PRINT F2$;" F3";Fi$3 " {2SPACE)I+ {6SPACE 
}+4SPACE }+ {SSPACE }SAWUP (ZSPACE >HOLD" 
PRINT F28;" FS";F1$; " (2SPACE}I- {6SPACE 
}-4SPACEI- {ZSPACEISAWDWN RUN" 

FRINT FZ$;" F7";Fi$; " {2SPACEI-- {SSPAC 











" E}=-- {3SPACE}-- {2SFACE}SQUARE" 


FOR LN=B TO & 
Z=3+LN 

SYS PR,Z,2,CHR$ (48+LN) 

PW=USR (MO+32+5#LN) :REM LFOF 
SYS PR,Z,18-LEN(STR$(PW)) ‚PW 
PW=PEEK (MO+34+5*LN) :REM LFOP 
SYS PR,Z,15-LEN(STR$(PW)) „PW 
PW=PEEK (MO+35+5#LN) :REM LFOA 
SYS PR,Z,28-LEN (STR$ (PR) ) „PW 
PW=PEEK (MO+S6+5#LN) :REM LFOC 
SYS PR,Z,21,KV$((PW AND 24)/8) 

: SYS PR,Z,28,MD$((PW AND &6)/2) 
NEXT LN 

LN=®: AV=5830: SYS GS,AV: RETURN 


REM PARAMETERKWAHL DURCH CURSOR 
REM HOCH 

LN=LN-1:IF LN<Q® THEN LN=& 

GOSUB 5815:SYS GT,AV 

REM RUNTER 

LN=LN#+1:IF LN>6& THEN LN=B 

GOSUB 5815:SYS GT,AV 

REM RECHTS 

AV=AV+3B: IF AV>S59SQ THEN AV=5858 
GOSUB S818:SYS GT,AV 

REM LINKS 

AV=AV-3B: IF AV<SBSB THEN AV=5958 
GOSUB 5818:5YS GT,AV 


REM AKTUELES PARAMETERFELD FARBE 1 
SYS PR,6,34," {4SPACE}" 
FOR I=PB TO PB+&:POKE I,Fi:NEXT:RETUR 


REM LFOF ANWAEHLEN 

PB=FA+40* (LN+S3) +4 

FOR I=PB TO PB+5:POKE I,F2:NEXT 
PA=MDO+32+5#LN: PW=USR (PA) »PM=65556 
P1=1:P2=2B8:PV=2818:RETURN 


REM LFOP ANWAEHLEN 

PB=FA+40%* (LN+S3) +11 

FOR I=PB TOD PB+3:POKE I,F2:NEXT 
PA=MO+34+5#LN: PW=PEEK (PA) :PM=256 
Pil=1:P2=18 :PV=2649: RETURN 


REM LFOA WAEHLEN 

PB=FA+40* (LN+S) +16 

FOR I=PB TO FB+3:POKE I,F2:NEXT 
PA=MO+3S+S#LN: PW=PEEK (PA) : PM=256 
Pi=1:P2=19 :PV=24708: RETURN 


REM LFD KURV L 

PBrn.20 AR OriLIMge 
FOR I=PB TO PB+5:POKE I,F2:NEXT 
PA=MO+HS3S5+5%#LN: PV=2798 


B=(PEEK (PA) AND 24)/8:G0T0 2717 


REM LFO MODUS WAEHLEN 
FB=FA+40* (LN+3) +28 
FOR J=PB TO FB+4:POKE J,F2:NEXT 


PA=MO+S35+5#LN 

PV=2738: RETURN 
REM========s===22 20 mmIe222 2222: 
REM UNTERMENUE EG 
REN=====2zemre=s=22=22=2=22ccscscsommmemenen 


M=4:SYS CL:PRINT" {HOME ,RVOFF}";Fi$ 
PRINT" SOFTWARE-EG":FRINT:PRINT 
PRINT" SCECCRSCECRECCCRLLCCHEECERECEE 
ERSCCELS" 

PRINT" B{2SPACE}’A B{2SPACE?D B{2SPACE 
+5 Bti2SPACE}R B EGAB FORMBMODUSER" 
PRINT" GELCCHECCCHLeec+ecccHEccckecet 
EHCLCCcH" 

PRINT" B{A4SPACE}B{4SPACEYBIA4SPACEIB(4 
SPACE} B{ASPACE I B{SSPACEIBISSPACEIB" 
PRINT" FELECFELCCCFELLECFELCCFEECLCFECCE 
LELELECN" 

SYS PR,12,1,F283"F1":PRINT" F3" 
PRINT" FS":PRINT" F7";Fi1$ 

SYS PR,18,13,"++{18SPACE}>RESET" 

SYS PR,11,13,"+{1SSPACE}+{3SSPACE}HOLD 


























SYS PR,12,13,"-{15SPACE}I- {SSPACEIRUN“ 
SYS PR,13,13,"-—" 

FOR I=@ TO 4 

: PW=PEEK (MO+67+1) 

ı SYS PR,7,6+5#I-LEN (STR$(PW)) „PW 
NEXT I 

PW=PEEK (MO+72) 

SYS PR,7,29,CHR$(43+(PW AND 8) /4) 
SYS PR,7,33,MD$((PW AND 6) /2) 
AV=631@: AN=B:SYS GT,AV 
REN-------------- 
REM A DS R EBA (AN=9-4) WAEHLEN 
PB=FA+282+S5#AN: S=2+5%*AN 

FOR I=PB TO PB+3:POKE I,F2:NEXT 
PA=MO+67+AN :PW=PEEK (PA) 
PM=256: IF AN=® THEN PM=129 
Pi=1:P2=18: PV=2768: RETURN 


REM EG FORM WAEHLEN 
PB=FA+2880+27:POKE PB+2,F2 
PA=MO+72: PV=2788: RETURN 


REM EG MODUS WAEHLEN 
PB=FA+280+33 

FOR I=PB TO PB+4:POKE I,F2=:NEXT 
PA=MD+72:PV=282B: RETURN 


REM PARAMETERWAHL DURCH LURSOR 
REM LINKS 

IF AV<>631® THEN 5428 
AN=AN-1:IF AN>=B THEN 6450 
AV=AV-35: AN=4 

IF AV<&31Q@ THEN AV=5398 
G05UB 5815:SYS GT,AV 

REM RECHTS 

IF AV<>8351B THEN 6458 
AN=SAN+1: IF AN<=4 THEN 6468 
AV=AV+3S5 

IF AV>63588 THEN AV=53518: AN=B 
G0SUB 5815:5YS GT,AV 





REM======2====55=555 55 
REM UNTERMENUE KSV 
REM=S=S===2=22=2222zzzzzzzzzzzzuz EZB Zu 


<150> 
<154> 


<185> 


<B75> 
<135> 
<166> 


<a88> 
<179> 
<1589> 
<056> 
<9a78> 
<285> 
<1B5> 
<218> 
<Ba99> 
<224> 
<112> 
<209> 
<151> 
<8a58> 
<239> 
<B42> 
<221> 
<257> 
<110> 
<228> 
<186> 
<122> 
<235> 
<178> 
<236> 
<245> 
<121> 
<254> 
<004> 
<192> 
x2535> 
<1907> 


<aS58> 
<212> 
<8352> 
<297> 
<126> 
<185> 
<114> 
<242> 
<B72> 
<B853> 
<154> 
<118> 
<8978> 
<816> 
<2Z88> 
<119> 
<185> 
<158> 
<1532> 
<B47> 
<851> 
<1135> 
<217> 
<179> 
<189> 
<877> 
<B7&> 
<182> 
<248> 
<118> 
<asB> 
<121> 
<188> 
<141> 
<209> 
<BB6> 


<259> 
<a99> 
<084 > 


<176> 


<B40> 
<8997> 
<185> 
<165> 


<084> 
<B49> 
<872> 
<172> 
<126> 
<157> 
<017> 
<117> 
<179> 
<145> 
<108> 
<182> 
<241> 
<116> 
<894> 
<B46> 
<129> 
<B46> 
<217> 
<B47> 
<258> 
<B03> 
<252> 
<166> 
<835> 
<1685> 
<858> 
<a21> 
<2B21> 
<B46> 
<250> 
<847> 
<207> 
<146> 
<205> 
<148> 
<a87> 
<B85> 
<B6ö1> 
<B89> 
<2355> 
<111> 
<B218> 
<151> 


8573 


6540 


6558 
6568 
68578 
6588 


6598 


6680 
6618 
66528 


6658 
6648 


6658 
66560 
6678 
688 
6585 


6698 
678 
6718 
6728 
6738 
6748 
6758 
6768 
6778 


6788 
6798 
8808 
s81B8 
6828 
68508 
6540 
6350 
6868 
6978 
6888 
6378 
H78R 
6718 
6915 
6928 
6925 
6958 
6935 
6948 
6958 
H975B 
6965 
6978 
6975 
6780 
699780 
7888 
7905 
7818 
7015 


79028 
7825 


7038 
7835 
7048 
7845 


725 
7055 
7848 
7885 
7978 
79875 


7088 
7285 
7098 
7895 
7100 
71198 
7115 
7128 
7ı22 


7125 
7138 
7135 
7148 
7142 


7144 
7145 
7158 
7155 
7168 
7165 
7170 
7175 
7180 
7185 
7178 
7288 
7205 
7210 


7215 
7220 
7225 
7238 
7235 
7248 
7245 
7250 


7255 
7268 


7388 
7385 
7318 


7315 
7328 
7325 
7338 

335 
75348 
7345 
753508 


Musik-Kurs 


=5:PV=®: PRINT" (RVOFF}"3:SYS CL 
SYS PR,1,1,F1$; "KREUZSCHIENEN-VERTEIL 
ER " 

SYS PR,3,1,"E{4SPACEILFO" 

SYS PR,4,1,"B6543210" 

SYS PR,S5,1,F2$; " ERGBERER" 

AS=F2E4H" H"+F1S+" (BSPACEI"+FZS+"L "+F1 
E23 

PRINT As; "Fi1"3F2$; " (SSPACE}CURSORTAST 
EN " 
PRINT At; "F2" 

PRINT As; "F3" 

PRINT At; "Pi";F2$; " (SSPACE>IF1 
VERBINDUNG" 

PRINT As; "P2" 

PRINT As; "P3";F2$; " (SSPACEIFT7 ";Fisz" 
KEINE VERBINDUNG" 

PRINT As; "FILT" 

PRINT A$; "LAUT" 

PRINT F2$;* TrrTirtt" 

FOR Z=B TO 7:G0SUB 6730: NEXT 
7=8:S=7:POKE 55296+40* (6+2)+8-8,F2 
RETURN 


"sFi1$; a 


B=FPEEK (MO+24+Z) :A=128 

SYS FR,6+Z,1,F1#; " {RVSON}GERBBADOR" 

IF B=B THEN RETURN 

FOR S=7 TO 8 STEP -1 

IFiB AND A)THEN SYS PR,6+7,8-5," {RVSO 
N>1"; 

A=A/Z:NEXT S 

PRINT F1$; :RETURN 


POKE 55276+40%# (6+Z)+8-S,Fi:REM AUS 
z=(Z-1) AND 7:G0T0 5918:REM HOCH 
FOKE 55296+40%* (6+Z) +8-5S,F1 

Z=(Z+1) AND 7:G60T0 &9108:REM RUNTER 
POKE 55296+40%* (6+2)+8-5,Fi 

S=(S5+1) AND 7:60TD0 &91B:REM LINKS 
FOKE 352976+49%* (6+72)+8-5,F1 

S5=(5-1) AND 7:G0T0 671®8:REM RECHTS 
POKE 55296+48*(6+7) +8-S,F2:REM AN 
RETURN 


AD=MO+24+Z 
POKE AD,FEEK(AD) OR 2t18 
FOKE 19824+48* (6+Z) +#8-S,177:RETURN 


AD=MO+24+Z 
FOKE AD,FEEK(AD) AND (255-215) 
POKE 1024+49* (6+7)+8-5,176: RETURN 


REM=====2===2=2z2=2==2=22= 2222222200 


REM UNTERMENUE SOUNDS 

REM=========== 02 2222022222200. 
M=6:PV=9:5YS5 CL:PRINT" {HOME ,RVOFF}";F 
2% 

SYS PR,1,8,"A{11SPACE}B{11ISPACE}C" 
PRINT Fi$; " {SSPACEISLLCCECCECCECCCCEtE 
SECCECECCCeecCeCEg" 

FOR I=1 TO 8 

SYS PR,2+I1,1,F2$; CHR$(48+I);Fi$" B" 


SYS PR,Zr1,38,"3":NEXT 
SYS PR,11,3, " ZELCECECCECCECCECCCECEE* 
ELLELCECEECR" 


SYS PR,12,4,F28; "A-C 1-8" 

SYS FR,12,13,F1$; "SDUND WAEHLEN" 

SYS PR,13,1,F2#; "+{2SPACE>A-C 1-8" 
SYS PR,15,135,F1#"SOUND ABSPEICHERN" 
SYS PR,14,1,F2#; "N" 

SYS PR,14,13,F1$; "NAMEN EINGEBEN (RET 
URN)" 

FOR S=B TO 2:FOR Z=0 TO 7 

» SYS PR,S+7,4+5*12,; 

» SYS NA,SO+197*(8*5+7) +97 
NEXT=:NEXT: IF NS<B THEN Z=9:S=9: RETURN 
Z=NS AND 7:5=INT (NS/8) :6G0T0 7188 


REM SDUND WAEHLEN (A,B,C) 

X=A-65 :REM SPALTE 8,1,2 

SYS PR,12,13,F2#; " {RVOFF>SOUND WAEHLE 
N" 

GET At: IF A$="" THEN 7125 

Y=ASC (A$)-49:REM ZEILE 

IF Y<8 OR Y>7 THEN 7142 

GOSUB 7159:G60SUB 7488 

SYS PR,12,13,F1#; " {RVOFF}SDUND WAEHLE 
N" 

RETURN 


REM ALTES NAMENFELD NORMAL 
NS=8*5+Z 

: SYS PR,S+7,4+5%12,F1#; " {RVOFF}"; 
: SYS NA,SO+197*NS+97 

REM NEUES NAMENFELD HERVORHEBEN 
S=X:7=Y:NS=8#S+Z 

: SYS PR,3+7,4+8#12,F2%; " {RVOFF}"; 
: SYS NA,SD+107x*N5+97 

RETURN 


REM SOUND ABSPEICHERN 

SYS PR,13,13,F2$#; " {RVDFF}SOUND ABSPEI 
CHERN" 

GET At:IF A$="" THEN 7215 

X=ASC (A$)-645:REM SPALTE 

IF X<B DR X>2 THEN 7258 

GET At: IF A$="" THEN 7230 
Y=ASC(A$)-49:REM ZEILE 

IF Y<sBß OR Y>7 THEN 7258 

G0OSUB 7159:G0SUB 74598:60T0 7268 

SYS FPR,13,15,F18#; "{RVOFF}SOUND ABSPEI 
CHERN" 

RETURN 

SYS FPR,13,13,F1#; "XRVOFF}SOUND ABSPEI 
CHERN" 


REM NAMEN EINGEBEN (Z,S,NS) 

SYS PR,14,13,F2#; "NAMEN EINGEBEN (RET 
URN)" 

x=12#*5+4: Y=2+3:AD=1024+40#Y+X 
SA=-50+187*N5+97:1=B 

FOKE AD+I,PEEK(AD+I) OR 128 

GET At: IF Ar="" THEN 7538 
A=ASC(AF):IF A<ISZ OR A>95 THEN 7378 
REM ZEICHEN AUSGEBEN 

SYS PR,Y,X+I,FZ2$;A$;POKE SA+I,A 
I=I+1 


Listing »Sound-Editor« 
(Fortsetzung von Seite 136) 





<220> 


<162> 
<B&5> 
<21B> 
<B40> 


<149> 


<206> 
<214> 
x225> 


<B87> 
<254> 


<145> 
<191> 
<209> 
<244> 
<829> 
<142> 
<202> 
<072> 
<2235> 
<072> 
<227> 
<073> 
<Qa92> 
<152> 


<a55> 
<184> 
<215> 
x172> 
<aB9> 
<192> 
<228> 
<201> 
<D79> 
<154> 
<B9B> 
<B65> 
<118> 
<158> 
<219> 
<172> 
<a57> 
<Bsam> 
<a47> 
<a25> 
<250> 
<887> 
<a77> 
<ı@0B> 
<087> 
<B&5> 
<195> 
<126> 
<1@81> 
<235> 
<111> 


<115> 
<198> 


<131> 
<B2&> 
<218> 
<177> 


<141> 
<098> 
<220> 
<201> 
<2B84> 
<124> 


<0&6> 
<a3S3> 
<1292> 
<150> 
<1157> 
<20B> 
<227> 
<115> 
<201 > 


<178> 
<140> 
x214> 
<0397> 
<235> 


<197> 
<145> 
<a97> 
<180> 
<1S56> 
<111> 
<246> 
<239> 
<231> 
<13553> 
<211> 
<192> 
<a5Q> 
<125> 


<B44> 
<251> 
<126> 
<123> 
<2453> 
<B&a4> 
<145> 
<256> 


<BB35> 
<281> 


<B975> 
<162> 
<215> 


<047> 
<1974> 
<178> 
<202> 
<088> 
<216> 
<167> 
<115> 
<241> 


nline.de 


line.net 


Speicherlandschaft C64/NC 20. 


7355 IF I>9 THEN 1=9:G60T0 7325 <804> 7765 POKE 782,154:REM Y-REG = $9A <121> 8585 : SYS DNO,MO+7=SN+2,2048 :REM Pw saB1> 
7388 IF 1<® THEN I=D <1B1> 7778 SYS 65496 :REM KERNAL SAVE <217> 8598 : FOKE MO+7HSN+4,8 :REM FORTA <211> 
7565 60T0 732 <B59> 7775 CLOSE 1 <B78> 8595 NEXT 5N <215> 
7378 IF A=27 THEN FOKE AD+I,PEEK(AD+I) AND 7788 OPEN 1,8,15: INPUT#1,A,A#,X,Y:CLOSE 1 <875> 8588 FOKE S1+23,8:RF=9 :REM RES/FILT <@28> 
127:G60T0 7358 <B25> 7785 IF A=B THEN 7795 <184> 8585 SYS DO,MO+21,8 :REM FILTERFR. «117> 
7375 IF A=157 THEN POKE AD+I,PEEK(AD+I) AN 7798 SYS PR,12,4,A;A#;X;Y:G0TO 7725 <135> 86818 FOKE MO+23,15 :REM MODD/LAUT <185> 
D 127: I=I-1:60T0 7355 <175> 7795 SYS PR,12,4," {3BSPACE}?" <B48> 8515 FOR 1=24 TO 72 :REM KSV,LFO,EG AUS <Q534> 
7380 IF A<>13 THEN 733D <«248> ze8a0 SYS PR,7,7,F1$; "SOUNDS ABSPEICHERN" <226> 8628 : FOKE MO+I,Q:NEXT <969> 
7385 FOKE AD+l1,FEEK(AD+I) AND 127 <BB4 > 7885 SYS 58185:RETURN:REM MODULATOR AN <819> 8525 EG=8 :REM EG ABKOPFELN <@49> 
7398 SYS PR,14,15,F1$; "NAMEN EINGEBEN (RET 8098 REM=========== 2522220222 Se=2n <B81> 8658 SU=® :REM SUSTAIN AUS <B5B> 
URN)" <126> 8818 REM VORBESETZUNG, INITIALISIERUNG <Bös> 8635. REM -—- > -— — „2. -— —— un n em <222> 
7395 RETURN <141> 8029 REM=======3=2==S2sznn 7 STEEL <1B1> 8548 REM SOUNDS VORBESETZEN <«1653> 
7488 REM---------- en - -— min <206> 8850 PRINT" {CLR,12DOWN,7SPACE}"; <244> 8545 FOR NS=Bd TO 23 <243> 
7482 REM FARAMETERSATZ NS HOLEN <145> 8835 PRINT"BITTE 38 SEKUNDEN WARTEN" <184> 86550 : GOSUB 7450 <1308> 
7484 SA=SO+NS*107:5YS GE,SA <163> 8848 REM-——- m nun n-nunnnn nenn nn nn nn <137> 85855 : AD=S0+1987#N5+97 <172> 
74906 FOR I=8 TO 2 <148> 8045 REM MS-PROGRAMME IN KASSETTENPUF. <244> 8668 : FOR I=AD TO AD+9:POKE I,46:NEXT <168> 
7488 : AD=SA+7#1I <231> 8858 FOR I=B8 TO 22 :REM KERNAL-GOSUB <12B> 8555 NEXT NS:NS=B <218> 
7410 : BF(I)=USR(AD+75) <189> 8055 FOKE 828+1,PEEK(43139+I) :NEXT <18®> 8708 REM------------ -- - -— -—- == - <031> 
7412 : X=BF(1)/17.9327/448 <2B92> 8858 FOR I=B TO 1i29:READ X:FOKE 851+I,X:NE 8878 REM FARBEN, BILD, MODDULATOR <B847> 
7414 =: Y=LOG(X)/LOG(2) :REM X=2tY <2539> XT <Bö6> 88568 FOKE 53288,14:POKE 535281,6& <a5u> 
7416 : Y=Y+4+9/12+49/1280 <818> 8855 POKE 785,169:POKE 786,3:REM USR <86553> 8898 PRINT Fi$; "{RVOFF}"s:POKE 659,128 <143> 
7418 : OCI)=INT(Y):Y=(Y-0O(I))#12 <220> 8079) REM ——— Te m Im nn Dom a a mer en <167> 8900 GOSUB 4288 :REM BILD ZEILEN 15-23 <220> 
7428 : TtI)=INT(Y) <a81> 8872 REM MS-PROGRAMME AR $#C423 <Q@48> 8918 SYS MO+1833:REM MODULATOR AKTIV. <208> 
7422 : DOF(I)=INT((Y-T(1))*100-48.5) <053> 8074 FOR I=S58211 TO 59291 <195> 8928 A=2:RETURN <231> 
7424 =: SIII=(PEEK(AD+75)=1) <216> 887565 READ X:FPOKE I,X:NEXT <228> 90882 REM=========22 == === 222 2e= 222mm <B61> 
7426 : A$=CHR$(49+1) :G0OSUB 3578 <126> 80878 REM---————----- - —- —manenmmenn nn nn <175> 9B1B8 REM DATAS <B81> 
7428 : C(I)=PEEK(AD+77) AND 254 <228> 8982 REM NAMEN DER TDENE <a8S5> 9828 REM=============- === 5n===2=2 2 ss22I <B81> 
7438 =: CICtI)=C(I) OR <219> 8882 FOR I=8 TO 11:READ TNFECI):NEXT <084> 9838 REM MASCHINENPROGRAMME <056> 
7432 : AD(I)=PEEK (AD+78) <225> 8108 REM--— = --nnnnnnnnnennnnnnnnnn <197> 99658 DATA 032,089,005,076,174,167,032 <o71> 
7434 2: SR(I)=PEEK(AD+79) <2B4> 8118 REM SPRUNGVEKTOREN <169> 9878 DATA 255,174,0832,138,173,832,247 <888> 
7436 NEXT I <244> 81208 READ Aft:L=LEN (AS) <116> 9888 DATA 183,075,165,168,052,253,174 <099> 
7438 RF=FEEK ($5A+94) <a51> 8138 ON L GOTO 8159,8220,8280,8310 <a83> 7899 DATA 032,158,193,139,072,032,253 <099 > 
7440 EG=(FEEK (S5A+95) =1):6GDSUBR 3748 <243> B1i5B REM L=1 ASCII-ZEICHEN <219> 7188 DATA 174,052,158,185,138,158,104 CIE 
7442 SU=(PEEK (SA+976)=1):G0SUB 3849 <819> 81650 A=ASC (AF) <118> 9118 DATA 170,024,932,240,255,032,253 <104> 
7444 RETURN <191> 8178 IF M>=B THEN V%X(M,A)=ZN:GOTO 8128 <137> 9128 DATA 174,9076,160,170,032,253,174 <129> 
74598 REM m——nnanann—nnnnene—nnnnnn <857> 8188 FOR I=B TO 7:V%(1,A)=ZN:NEXT <1908> 9138 DATA 032,138,1735,052,247,183,165 <142> 
7452 REM PARAMETERSATZ NS ABSPEICHERN <112> 8190 GOTO 8128 <113> 9148 DATA 820,133,158,165,821,155,159 <142> 
7454 SA=SO+NS*107:5YS PU,SA <239> 8208 IF LEFT#(AF,1)<>"M" THEN 81208 <215> 9150 DATA 032,255,174,052,138,173,052 <152> 
7456 FOR SN=8 TO 2 <247> 8228 REM L=2 MENUE-INDIKATOR <178> 9168 DATA 247,185,168,088,120,1655,020 <151> 
7458 : AD=SA+7+sSN <114> 8238 IF LEFTF(A$,1)<>"M" THEN 8128 <245> 9178 DATA 145,158,2088,165,821,145,158 <177> 
7468 : SYS DO,AD+73,BF (5N) <825> 8248 A$=RIGHT$(AF,!) <835> 91808 DATA 088,9958,032,247,1853,150,000 <190> 
7462 : POKE AD+75,-S(SN) <205> 8258 IF A$="A" THEN M=-1 :G0TO 81208 <115> 9198 DATA 120,177,8208,133,099,20898,177 <194> 
7454 »: PDKE AD+77,C(SN) <020> 825B M=VAL (A$) :GDTO 8122 <9a76> 92008 DATA 020,288,1533,098,162,144,056 <215> 
7466 : POKE AD+78,AD(SN) <B89> 82808 REM L=3 ASCII-WERT <123> 9218 DATA 076,073,188,169,052,162,008 <222> 
7468 : FOKE AD+79,SR(SN) <124> 8298 A=VAL(A#) :60TO 8178 <899> 9228 DATA 157,000,004,157,0002,205,202 <202> 
7478 NEXT SN <118> 8518 REM L=4 TZEILENNUMMER ODER ENDE <165> 92508 DATA 208,247,162,087,157,9008,9006& <239> 
7472 POKE SA+94,RF <885> 8328 IF A+="ENDE" THEN 85348 <248> 9240 DATA 282,815,2590,9095 <154> 
7474 POKE SA+95,-EG «245> 83538 ZN=VAL(AF) :G0OTO 8128 <237> 9258 REM-----—--—— -—-n- -— — - -ıı---- nn <072> 
7476 POKE SA+95,-5U <220> 8548 REM=-=-=———mesnnn— nennen nennen <159> 9268 REM MASCHINENPROGRAMME AB 04253 <162> 
7478 RETURN <225> 8358 REM TONNUMMERN <B64> 92798 DATA 032,253,174,832,138,173,032 <817> 
75080 REM=======-==ee:<eonemee=e=mzesopemmmeocen <a91> 85658 As="Q2WISERSTEY7UIFOBP@-#Ert{HOMEI,=" <128> 92808 DATA 247,183,165,820,133,158,155 <839> 
7505 REM UNTERMENUE DISKETTE <8a98> 853578 FOR I=8 TOD 24 <184> 9298 DATA 821,133,159,095,0532,035,19& <846> 
7518 REM======2==-=====25-===2222 522m <181> B3588B : A=ASC(MIDF(AF,I+1,1)) <845> 9388 DATA 150,898,177,158,052,2180,255 <045> 
7515 M=7:PV=0:5YS CL:PRINT" {HOME}";Fi1$ <215> 835978 : TNAtA)=I <284> 93518 DATA 2808,192,010,208,246,894,032 <054> 
752@ PRINT" DISK" <133> 8488 : FOR J=® TO 7:V%(J,A)=2808: NEXT <127> 9328 DATA 035,196,160,888,177,158,153 <876> 
7525 SYS PR,5,4,F28; "Fi" <965> 8418 NEXT I <165> 9330 DATA 889,192,200,192,073,208,246 <975> 
7558 SYS PR,S,7,F1#3 "SOUNDS LADEN" <817> 8458 REM-- nun —nanmenunnunmennnnnunun <837> 9548 DATA 177,158,155,185,211,2090,192 <a95> 
7535 SYS FPR,7,4,F2$3 "F3" <079> 8455 REM FREQUENZEN DER TONLEITER <9a75> 9358 DATA 094,208,246,177,158,141,0253 <112> 
7548 SYS PR,7,7,F1$; "SOUNDS ABSPEICHERN" <221> 8468 FOR I=B TO 24: TH(tI)=2t(I/12) NEXT <075> 9568 DATA 212,896,032,035,1958,160,0008 <105> 
7545 RETURN <036> 84637 REM nee nenne be nme <852> 9378 DATA 185,080,192,145,158,288,192 <121> 
F5B8 REM---------------- <207> 8478 REM KONSTANTEN <203> 9380 DATA 073,208,246,89& <B62> 
76085 REM SOUNDS LADEN <161> 8472 65=828:61T=857:FR=859:D0=897:C1L=959 <289> 94808 REM-------— --- - — — — 1 - - - 77 <222> 
7618 SYS FR,5,7,F2$#; "SDUNDS LADEN" <B898> 8474 NA=59229:GE=59245: PU=5827& <139> 9418 REM NAMEN DER TDENE <058> 
7615 SYS PR,10,4,F1#; "DATEINAME "; <818> 84808 S1=-54272:M0=49152:FA=55295 <126> 9428 DATA C,C#,D,D#,E,F,F#,6,6#,A,Att,H <B61> 
7628 DN$S="SOUNDS {14SPACE}" <185> 8482 50=-356854 <1&62> 95808 REM-=---—---- - - - - -- -- -unnnn nn nn <B6&67> 
7625 SYS PR,18,16,DN# <940> 8484 Fi$=CHR$ (154) :F1=14 <812> 9518 REM DATAS FUER SPRUNGVERTEILER <9010> 
7630 SYS PR,18,14,;: INPUT DN$ <037> 84908 F2#$=CHR$ (5) :F2=1 <123> 9528 DATA MA,4000,X,3502,V,36400,032 <006> 
7635 OPEN 8,8,8,DN$+",P,R":CLOSE B <107> 8495 a a <166> 9530 DATA MA,3700,160,39880,5 <159> 
7654B OPEN 1,8,15: INPUT#1,A,A$,X,Y=:CLOSE 1 <188> 8588 $ ="S5A TTKF$ zu." <189> 9548 DATA MA,2558,1335,25680,1354 <242> 
7645 SYS FR,12,4," {29SPACE?" <155> 8585 KVs(2)="SAWDWN":KFE(2)="Enon" <226> 9550 DATA MA,2570,135,2580,136,4500,214 <188> 
7658 IF A=B THEN 7558 <039> 8518 KVs$ (5) ="SQUARE":KFE(S)="QLOL" <B14> 9555 DATA MA,5528,L,6828,H,6588,K <205> 
7655 SYS PR,12,5,A;A#;X;Y:G0OTO 7625 <255> 8515 MDE(B)="RESET" :MDE(1)="RESET" <2553> 9568 DATA MA,S5290,F,70090,211,759008,D <812> 
7660 A=9:LOAD DNE,8,1 <112> 8520 MDE(2)="HOLD " :MDE(CF)I="RUN{ZSPACE?" °- <B28> 9565 DATA M1,4654,145,46560,017 <aB8> 
7665 SYS PR,S,7,F1$; "SOUNDS LADEN" <152> 8525 BLF(B)="":BL$(1)=-" ":BLF(2) =" 12SPACE> 9578 DATA M1,4566,029,4689,157 <B24> 
76878 NS=-1:A=211:60T0 1558 <145> ri <B96> 9588 DATA M2,51890,157,5145,029 <B22> 
7708 REM--------- === -- -— -- - <852> 85358 BL$(5)="SSPACE}":BLF (4) =" (4SPACEY" <BB&> 9608 DATA M3,5675,145,5698,017 <853> 
7785 REM SOUNDS ABSPEICHERN <198> 8555 BL$(S) =" SSSPACEY":BL$ (6) =" (SSPACE>I" <B15> 9618 DATA M3,5728,157,5705,829 <057> 
7718 SYS PR,7,7,F28#; "SDUNDS ABSPEICHERN" <137> 9349” REM=-==r=mnnnu ne ennu ne nennen nme nm <127> 9628 DATA M4,64198,157,6440,029 <062> 
7715 SYS PR,18,4,F18#; "DATEINAME "; <119> 8545 REM SOUNDFARAMETER VORBESETZUNGEN <124> 9650 DATA MS,6830,145,68590,817 <078> 
7728 DN£="SOUNDS {14SPACE}" <206> 8558 FOR SN=B TO 2 <097> 9648 DATA MS5,6870,157,6890,029 <102> 
7725 SYS PR,180,15,DN#$ <141> 8555 » POKE SI+7*SN+5,18 :AD(SN)=18 <887> 96508 DATA M5,6935,133,134,6975,135,136 <248> 
7738 SYS PR,198,14,;:1NFUT DN# <138> 85608 : POKE SI+7#+SN+5,138:SR(SN)=1I58 <245> 9708 DATA M6,7118,A,B,C,7208,+,7308,N <062> 
7735 SYS 58198:REM MODULATOR AUS <a99> 8565 : D(SN)I=F+SN:OF(SN)=B:T(SN)=D <B7B> 9758 DATA M7,76880,1533,77900,134 <1B9> 
7748 REM BEREICH $8900-s8AB8 AUF DISK <8aD> 8570 : BF=44B#21(0 (SN)-4+{T(SN)-9) /12+0F (S 9988 DATA ENDE <113> 
7745 OPEN 1,8,1,"@:"+DN$ <B858> N)/1288) <122> 
7750 POKE 252,9:POKE 2553,144:REM #90008 <214> 8572 : BF(SN)=BF#17.0327 <15J5> 
7755 POKE 780,252:REM AKKU <B89> 8575 : CISN)=64 :C1 (SN)=65 <2352> ET, . 
7760 FOKE 781,8 :REM X-REG = #08 <254> 8588 : SLSN)=(SN=D) <170> Listing »Sound-Editor« (Schluß) 









Wandervorschligen (Teil 8) 


Neben der dynamischen Tastaturabfrage werden die Adressen 
153 bis 158 behandelt. Deren Aufgabe ist die Ausgabe von Fehlermeldungen. 





Die dynamische Tastaturab- 
frage ist das Kernthema mit dem 
wir uns heute beschäftigen wol- 
len. Zuvor aber noch einige 
Speicherstellen, die wie beim 
letzten Mal das Betriebssystem 
als Zeiger für Ein/Ausgabeope- 
rationen benutzt. 


Adresse 153 ($99) 


Nummer des Eingabe-Gerätes 
Das Betriebssystem verwen- 
det diese Speicherzelle, um fest- 


140 Zap 


zuhalten, welches Gerät zur Ein- 
gabe verwendet werden soll. 
Die Nummern sind wie folgt 


festgelegt: 
0 = Tastatur 
1 = Datasette 
2 = RS232 (User-)Port 
3 = Bildschirm 
4,5 = Drucker 
8-11 = Floppy-Laufwerke 


Nach dem Einschalten oder 
nach RESET des Computers 
steht in 153 eine 0 (Tastatur). 
Nach jedem Einsatz eines ande- 


ren Gerätes wird diese Spei- 
cherzelle wieder auf 0 gesetzt, 
so daß wir immer die Tastatur 
zur Verfügung haben. 

Für Maschinenprogrammie- 
rer ist diese Adresse sicherlich 
wertvoll. Die Routine, welche die 
Eingabegeräte festlegt, sobald 
der Befehl INPUT# bezie- 
hungsweise GET# ausgeführt 
wird, heißt CHKIN und beginnt 
beim C 64 ab Adresse 61966 
($F20E), beim VC 20 ab 62151 
($F2C7). 


Für Basic-Programmierer ha- 
be ich in der Literatur nur eine 
Anwendung gefunden, und die 
wurde bereits bei der Bespre- 
chung der Speicherzelle 19 (Teil 
3 des Kurses in Ausgabe 1/85, 
Seite 127) angekündigt. 

Es ist dies eine MERGE-Rou- 
tine. Leider funktioniert dieses 
Verfahren nicht bei dem 1541 
Floppy-Laufwerk. Erfunden 
wurde die Routine von Brad 
Templeton und ist von Jim Butter- 
field unter dem Namen »Magic 
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C 64/NC 20 Speicherlandschaft 


Merge« für den VC 20/C 64 
adaptiert worden. Ich gebe zu, 
in der Zwischenzeit sind noch 
andere, vielleicht auch kürzere 
MERGE-Routinen veröffentlicht 
worden. Äber diese hier ver- 
wendet gleich drei interessante 
Ingredienzen, nämlich die Spei- 
cherzellen 19 und 153, außer- 
dem die sogenannte »Dynamı- 
sche Tastenabfrage«. Wer die 
letztere nicht kennt, sollte sich 
zum Verständnis den Textein- 
schub | gleichen Namens anse- 
hen. 

Ein MERGE (deutsch: zusam- 
menführen, verschmelzen) be- 
steht darın, ein auf Band gespei- 
chertes Programm zu einem im 
Computer stehenden anderen 
Programm so dazuzuladen, daß 
dieses nicht überschrieben, 
sondern ergänzt wird. Wichtig 
ist dabei, daß das Programm 
vom Band höhere Zeilennum- 
mern hat als das Programm im 
Computer. Außerdem muß das 
Programm aufdem Band als Da- 
tei gespeichert sein. Das wird so 
erreicht: 

l. Programm eintippen 

2. Direkt eingeben: 

OPEN 1,11”’Name”:CMDI:LIST 

3. Erst wenn READY kommt, 

direkt eingeben 
PRINT #1:CLOSEI 

Damit ist das Programm auf 
dem Band gespeichert Nun 
kommt der eigentliche MERGE- 


Vorgang. 
4. Es steht ein Programm im 
Computer 


5. Band mit dem Programm 
»Name« einlegen 

6. Direkt eingeben: 
PORE 19,1:OPEN | 

7. Sobald READY erscheint, Bild- 

schirm löschen (SHIFT-CLR). 

Dreimal Cursor-Down 

Direkt eingeben: 

PRINT CHR$(9):POKE 198,1: 

PORE 631,13:POKE 153,1 

10. Das Band beendet den Lade- 
vorgang mit einer Fehlermel- 
dung, die wir ignorieren. 

ll. Nach CLOSE 1 sind beide 
Programme zusammengefügt. 


Wie gesagt, Schritt 6 verwen- 
det Zelle 19 (bitte dort nachle- 
sen), Schritte 8 und 9 sind die 
»Dynamische Tastenabfrage«, 
und Schritt 9 verwendet zusätz- 
lich die hier zur Diskussion ste- 
hende Speicherzelle 153, um die 
Datasette als Eingabegerät zu 
definieren. 


Adresse 154 (S9A) 


Nummer des Ausgabe-Gerätes 

Diese Speicherzelle ent- 
spricht der Zelle 153, nur steht 
hier die Nummer des Gerätes, 
über das die Ausgabe läuft. 

Nach dem Einschalten und 
nach Ausgabeoperationen wird 
der Wert immer auf 3 gesetzt. 
Das ist entsprechend der oben 
genannten Zuordnung der Bild- 
schirm. 

Für Maschinenprogrammie- 
rer sei erwähnt, daß Basic bei 
den Befehlen PRINT# oder 
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CMD die Routine CHKOUT ein- 
setzt, welche die Adresse 154 
belegt. Sie steht im C 64 ab 
Adresse 62032 ($F250), im VC 20 
ab 62217 ($F 309). 


Adresse 155 ($9B) 


Fehlerkontrolle bei Bandoperationen 

Die Commodore-Datasette ist 
deswegen so zuverlässig, weil 
sie mehrere Methoden zur Feh- 
lererkennung beziehungsweise 
Korrektur von Lese- und 
Schreibfehlern verwendet. 

Eine der Methoden ist die so- 
genannte Parity-Prüfung. Sie ist 
nichts anderes als eine Quer- 
summenbildung der einzelnen 
Stellen jedes Bytes, deren Resul- 
tat überprüft wird. 

Die Speicherzelle 155 wird bei 
dieser Parity-Prüfung einge- 
setzt. 


Adresse 156 (S9C) 


Flagge für korrektes Byte vom Band 

In dieser Speicherzelle wird 
zwischengespeichert, ob das 
vom Band gelesene Byte die 
Prüfungen bestanden hat, also 
richtig ist oder nicht. 


Adresse 157 (S9D) 


Flagge für Meldungen 

Man muß zwischen zwei Arten 
von Meldungen unterscheiden: 
— Meldungen des BetrridEN 
stems 2 
— Meldungen des Basic-Über- 
setzers 

Die Meldungen des Betriebs- 
systems kennen wir als Anga- 
ben zum Ablauf, wie SEAR- 
CHING FOR, FOUND, PRESS 
PLAY ON TAPE und so weiter. 
Normalerweise nicht bekannt ist 
die Meldung V/O ERROR #, wo- 
beinach dem Zeichen # Zahlen 
von 0 bis 29 stehen können. Die- 
se Zahlen beziehen sich auf Mel- 
dungen des Übersetzers (Inter- 
preter), dıe ausschließlich Feh- 
lermeldungen sind. Das mag 
verwirrend klingen, klärt sich 
aber sofort. Die Flagge in 157 
kann vier Werte annehmen, 0, 
64, 128 und 192. 

l. Der Wert O0 unterdrückt alle 
Meldungen des Betriebssy- 
stems. Dieser Modus tritt nach 
RUN beim Ablauf eines Pro- 
gramms ein. 

2. Der Wert 64 läßt nur Fehler- 
meldungen des Betriebssy- 
stems zu. Dieser Modus ist nor- 
malerweise nicht vorgesehen, 
kann aber künstlich erzeugt 
werden. 

3. Der Wert 128 unterdrückt die 
Fehlermeldung des Betriebssy- 
stems. Dieser Modus entspricht 
dem Normalfall. 

4, Der Wert 192 läßt alle Meldun- 
gen zu. Äuch dieser Modus ist 
nur künstlich herzustellen. 

Das folgende Beispiel macht 
das deutlich. Geben Sie direkt 
ein: 

POKE 157,0:LOAD "$",9 


Wir versuchen, vom Gerät mit 3  FILENOT OPEN 
der Nummer 9, dasist eine zwei- 4 FILE NOT FOUND 
te Floppy, die Directory zu la- 5 DEVICE NOT PRESENT 
den. Wir erhalten entsprechend 6 NOT INPUT FILE 
Ponkt nu die Melattng dese "NL 
Übersebors 2? DEVICE. NOT) MSN 

i 9 ILLEGAL DEVICE NUM- 

PRESENI« Verändern wir den BER 
POKE-Befehl für Punkt 2: 
POKE 157,684: LOAD’ $’,9 = A ES> 

Wir erhalten jetzt »/O ERROR 12 RETURN WITHOUT GO- 
#5 ? DEVICE NOT PRESENT«. SUB 
POKE 157,128:LOAD'’$',9 13 _OUTOF DATA 
ergibt die ner »>SEAR- 14 ILLEGAL QUANTITY 
CHING FOR 15  OVERFLOW 
? DEVICE NOT PRESENT«. 6 OUTOFMEMORY 

Schließlich nehmen wir noch 17 _ UNDEF’D STATEMENT 
den letzten Fall: 18 BAD SUBSCRIPT 
POKE 157,192:LOAD”’$',9 19  REDIM’D ARRAY 

Jetzt erhalten wır alles: 20 DIVISION BY ZERO 
»SEARCHING FOR $ 21 ILLEGAL DIRECT 
/O ERROR #5 22 TYPE MISMATCH 
? DEVICE NOT PRESENT« 23 STRING TOO LONG 

24 FILE DATA 

Da die Fehlermeldung des Be- 25  FORMULA TOO COM- 
triebssystems und die zugehöri- PLEX 
gen Nummern in keinem Handı- 26  CAN’T CONTINUE 
buch erwähnt sind, habe ıch sie 27 UNDEF’D FUNCTION 
interessehalber in der folgen- 28 VERIFY 
den Tabelle zusammengefaßt. 29 LOAD 


# MELDUNG (ERROR) 


l TOO MANY FILES 
2 FILE OPEN 


Das nächste Mal fahren wir ab 


Speicherzelle 158 fort. 


(Dr. Helmuth Hauck/ah) 


Eule 1. Dynamische Tastenabfrage 


edesuus! wenn Sie eine Taste drücken, wird der ASCII-Codewert des 
Zeichens ‘oder der Funktion dieser Taste ermittelt und im »Tastaturpuffer« 
gespeichert. Dieser PufferspeicherliegtindenSpeicherzellen 631 bis640. 

Die eigentliche Abfrage und Umcodierung eines Tastendruckshabeich 
im Kurs»Alle Tasten-, Zeichen-und Steuercodes«in den Ausgaben 4/84 bis 
1/84 beschrieben. Die ASCII-Codetabelle finden Sie daauch. Sie ist natür- 
lichinallen Handbüchern enthalten, leideraber nichtimmer ganz vollstän- 
dig. Zuerst will ich Ihnen die Arbeitsweise des Tastaturpuffers zeigen. 

Der Computer holt sich den ASCII-Codewert aus dem Tastaturpuffer 
und wenn gerade kein Programm läuft, druckter das Zeichen aufden Bild- 
schirm oder führt die Funktion der Taste aus. Das ist der oft zitierte »Direkt- 
Modus«. 

Wenn aber ein Programm läuft, dann bleiben die Codezahlen im Puffer 
so lange stehen, bis der Computer fertig ist. Dann erst werden sie heraus- 
geholt und verarbeitet. Das will ich Ihnen beweisen. 

Tippen Sie im Direkt-Modus ein: 

FOR K=1 TO 15000:NEXT K (RETURN) 

Während diese an sich sinnlose Zeitschleife 15000mal im Kreise rum- 
rennt, haben Sie genügend Zeit, mehrere Tasten zu drücken, zum Beispiel 
die erste Buchstabenreihe (QWERTYUIOP@*!t). Natürlich sehen Sie am 
Bildschirm gar nichts, denn das Programm der Schleife läuft ja noch. So- 
bald aber die Schleife zu Ende ist, erscheinen 10 der getippten Buchsta- 
ben. Quod erat demonstrandum! 

Warum nur 10 Buchstaben? Nun, der Tastaturpuffer hat nur 10 Plätze, lo- 
gisch? 

Jetzt müssen wir noch eine weitere Speicherzelle ins Spiel bringen. In 
die Zelle 198 kann man nämlich eine Zahl hineinPOREn, welche die Anzahl 
der Zeichen im Tastaturpuffer begrenzt. 

Wiederholen Sie bitte das Experiment von oben, nur soll die direkt ein- 
gegebene Zeile erweitert werden: | 
FOR K=1 TO 15000:NEXT K: POKE 198,6 (RETURN) 

Und siehe da, jetzt werden nur die 6 Buchstaben O bis Y ausgedruckt. 
Diese Anwendung des Tastaturpuffers nutzen wir für das Kochrezept »Dy- 
namische Tastenabfrage« aus. Allerdings müssen wir dazu prinzipiell die 
ASCII-Codewerte verwenden, so wie im nächsten Beispiel. 

Löschen Sie bitte den Bildschirm und geben Sie ein (identisch für VC 20 
und C 64): 

10 PRINT CHR$(65) 
20 PRINT CHR$(156) 
30 PRINT CHR$(66)CHR$(3)CHR$(67) 

65 istder Code für A, 156 für die Farbe »purple«, 66 fürB, 13 für»RETURN« 
und 67 fürC. Dasheißtalso, daß wirzuerstein. A drucken, dann auf»purple« 
umschalten, darunter dann das B schreiben, einmal RETURN geben und 
dann noch das C folgen lassen. 


Isar Al 


Speicherlandschaft 


Bild 1 zeigt den Ausdruck auf dem Bildschirm, wenn Sie diese Zeilen 
LISTen und starten. 

Zur Erklärung: Die Leerzeile zwischen A und B ist bedingt durch die 
PRINT:-Anweisung in Zeile 20, welche nur die Farbe umschaltet. Obwohl 
die Codes für B und C zusammen in einer Zeile stehen, werden sie doch 
durch das »RETURN« (13) untereinandergesetzt. 

Anstelle der 13 können Sie alle mögliche anderen Steuerfunktionen set- 
zen. Bild 2 zeigt das Resultat von 17, nämlich »Cursor down«. Wenn Sie die 
8 nehmen, können Sie den Zeichensatz nicht mehrändern. Der Einsatz der 
gleichzeitig gedrückten SHIFT- und Commodore-Taste funktioniert erst 
nach CHR$() wieder. 

Alsnächstes wollen wir die ASCII-Codewerte und den Tastaturpuffer im 
»Programm-Modus« einsetzen. 

Das Resultat von Bild 2 wollen wir jetzt durch POKEn der ASCII-Werte in 
den Tastaturpuffer wiederholen. 

5 POKE 198,5 

10 POKE 631,65 

20 POKE 632,156 

30 POKE 633,66: POKE 634,17: POKE 635,67 

99 END 

Prinzipiell macht dieses Programm das gleiche wie das Programm in 
Bild 2. Trotzdem erhalten wir nach LIST und RUN ein anders Ergebnis, 
nämlich das von Bild 3. 

Ist das ein Fehler? Natürlich nicht. Nach RUN laufen zuerst mal alle 
POKE-Befehle ab. Zeile 5 gibt an, wieviele Zeichen im Puffer stehen sollen. 
In Zeile 99 findet dasProgramm dasENDe und meldetsich mit READY. Jetzt 
erst wird im Tastaturpuffer nachgeschaut. Dort findet der Computer zuerst 
das A, dann »purpur«, dann dasB welches sofortneben das A gesetzt wird. 
Das ist auch logisch, denn es fehlt ja jede Angabe, eine Zeile tiefer zu ge- 
hen. Umdaszu erreichen, müssen wir iin derZeile 10 den Codewert für RE- 
TURN einschieben: 

10 POKE 631,65: POKE 632,13 

Vorsicht! Sie müssen in Zeile 20 und 30 alle POKE-Adressen um ] erhöhen 
undauch die Zahlin Zeile 5. Nehmen sie 10, dann haben Sie Platz für Erwei- 
terungen. So, jetzt LIST und RUN eingeben und es erscheint Bild 4 — und 
wir haben schon wieder ein Problem! Aber alles im Computer ist logisch! 
Nach dem A findet er den Wert für»RETURN«also führt er den Befehl aus, 
aufdem der Cursor gerade steht. Derstehtaufdem A. Da daskein gültiger 
Basic-Befehl ist, druckt der Computer die Fehler-Mel d_zei 
READY an. Danach allerdings macht er weiter wie hc BAER L 
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Bild 2. CR ersetzt durch »Cursor down« 
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Bild 3. Programm (Bild 2) 
in den Tastaturpuffer gePOKEt 





C 64/VC 20 


Und jetzt kommt die ASCII-Zahl 141 (SHIFT-RETURN) voll zur Geltung. 
Diese Kombination nämlich setzt den Cursor an den Änfang der nächsten 
Zeile, ohne den Befehl »RETURN« auszuführen. 

Ersetzen Sie also die 13 in Zeile 10 durch 141, dann läuft’s (Bild 5). 

Es gibt übrigens noch eine interessante ASCII-Codezahl, die in keiner 
Tabelle steht, nämlich 131. Sie bedeutet dasselbe wie die geSHIFTete 
STOP-Taste, also die Funktion »LOAD + RUN«. 

Wenn Sie diesen Code mit PRINT CHR$(I31) ausprobieren, funktioniert 
er allerdings nicht. Deshalb steht er wohl auch nicht in den Tabellen. 

In den Tastaturpuffer gePOKREt bringt er aber seine Wirkung. 

Setzen Sie bitte in Zeile 30 an die Stelle von 67 die Zahl 131 und anstelle 
des C erscheint 
LOAD und PRESS PLAY ON TAPE. Gut, nicht wahr? 

So, jetzt haben wir alle Zutaten für unser Kochrezept zusammen. 
Löschen Sie bitte alles bisherige und tippen Sie ein: 

10 PRINT CHR$(147) 

20 FORI=1TOS5: PRINT I 

30 FORT=1 TO 500: NEXTT 

40 NEXTI 

Nach Löschen des Bildschirms (Zeile 10) drucken wir zum Aus- 
schmücken die Zahlen 1 bis 5 untereinander (Zeile 20 und 40) und damit 
es nicht zu schnell geht, bremsen wir mit der Zeile 30. 

50 PRINT ”LIST” (Das ist natürlich sehr einfach, aber jetztkommt’s!) 

60 POKE 198,5 

70  POKE 631,145: POKE 632, 145: POKE 633,145 

80 POKE 634,13 

90 END 

Nach RUN erscheinen erst die fünf Zahlen, dann wird in einer neuen Zei- 
le das Wort LIST geschrieben. Nach END wird erst (wie immer) eine Zeile 
ausgelassen, dann READY gedruckt und schließlich springt der Cursoran 
den Anfang der Zeile darunter. Während der Cursor anfangen will, drei 
Zeilen unter dem Wort LIST zu blinken, findet der Computer im Tastatur- 
puffer3 den ASCII-Code für»Cursorup«. Alsogehtdieserauch dreiZeilen 
hoch und will jetzt auf dem Wort LIST blinken. 

Damit wird es aber wieder nichts, denn im Puffer stehtjanoch der Code 
fürRETURN (l3). Das wird ausgeführt und zwar für dasLIST. Es hat dieselbe 
Wirkung, als ob Sie direkt LIST tippen und danach auf die RETURN-Taste 
drücken, nämlich das Programm wird ausgeLlSTet. 


N =" sinnvollen Basic-Befehle, die Sie in der Zeile 50 PRINTen, werden 


urc.ı diese dynamische Manipulation des Cursors ausgeführt. 

Versuchen Sie es mit 

50 PRINT PRINT 16 * 35” 

50 PRINT ”LOAD” 

50 PRINT ”GOTO 10” 

50 PRINT”RUN” 

50 PRINT "RUN 50” 

und falls Sie dieses kleine Programm geSAVEt haben 

50 PRINT "SYS 64824” 

50 PRINT "SYS 64763” 

Die Kunst ist also, mit entsprechenden Codezahlen den Cursor an dieje- 
nige Stelle des Bildschirms zu bringen, wo innerhalb eines Programms ei- 
ne geeignete Anweisung gedruckt worden ist. Man kann damit getrennte 
Programmteile nachladen, mitSYS-Befehlen Maschinenprogramme aufru- 
fen, oder gar Programme durch sich selbst ändern lassen. 
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Bild 5. SHIFT-CR statt CR 
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Logeleien-Kurs 





Logeleien (Teil 1) 


In vielen Basic-Programmen tauchen sie auf, die logischen 
Operatoren wie NOT, AND und OR. Bei sinnvollem Einsatz 
kann man eine Menge Basic-Speicherplatz sparen. 

Aber auch Ausdrücke wie IF A THEN ... bringen nicht nur 
den Anfänger manchmal ins Schleudern. Was steckt 
eigentlich im Endefekt dahinter? 


D as hätte sich der »Vater der 
Logik«, Aristoteles, vor 2200 
Jahren nicht träumen lassen kön- 
nen, was aus seinen Gedanken- 
gängen einmal werden würde. 
Man kann aber mit einiger Be- 
rechtigung behaupten, daß es 
ohne seine Werke und die von 
Leibniz (vor etwa 300 Jahren hat 
dieser die Logik modernisiert) 
keine Computer gäbe. Die Ar- 
beiten der Begründer der ma- 
thematischen Logik, DBoole 
(1815-64) und Frege (1848-1925), 
basieren auf dem Jahrtausende 
alten Fundament. Wie für den 
Computer geschaffen — aber ei- 
gentlich istes umgekehrt: Die lo- 
gische Maschine ıst ein Produkt 
der mathematischen Logik — ist 
die sogenannte zweıwertige Lo- 
gik. Hier geht es um »Wahr« und 
»Falsch«, ein drittes gibt es nicht 
(tertium non datur, wie die alten 
Philosophen zu sagen pflegten). 
Die Verwandtschaft liegt aufder 
Hand: Die elektronische Ma- 
schine kennt die Zustände Strom 
an/Strom aus oder Ladung vor- 
handen/nicht vorhanden oder 
eben einfach l und Ö, die Ziffern 
der Binärarithmetik. 

Dazunoch eine technische Be- 
merkung;: Sollten Sie mit dem Sy- 
stem der binären Zahlen noch 
nicht vertraut sein, dann lesen 
Sie den beigefügten Kasten, in 
dem die wichtigsten Begriffe er- 
klärt sind. 


1. Wahrheitswerte und Aussagen 

Was sind Aussagen? Am be- 
sten sehen wir uns einfach eini- 
ge Beispiele an: 

— Rosen sind rot 
— Die Zahl ist größer als 100. 

Das sind einfache Aussagen. 
Eine zusammengesetzte Aussa- 
ge ist beispielsweise: 

Rosen sind rot UND Veilchen 
sind blau. Hier wurden zwei Aus- 
sagen UND-verknüpft. Keine 
Aussage ist: 

— Wohin gehst Du? 

Ich hoffe, daß auf diese Weise 
ohne tiefschürfende philosophi- 
sche Erörterungen (denn die 
gibt es natürlich) das Wesen von 
Aussagen klar geworden ist. 

Aussagen können wahr sein. 
Sie enthalten dann den Wahr- 
heitswert »Wahr« Sie können 
aber auch statt dessen falsch 
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sein, was ihnen den Wahrheits- 
wert »Falsch« verleiht. Der 
Wahrheitswert von zusammen- 
gesetzten Aussagen hängt zum 
einen von den Wahrheitswerten 
der Einzelaussagen ab und zum 
anderen von der Art ihrer Ver- 
knüpfung. Wir werden im fol- 
genden für die Wahrheitswerte 
die Buchstaben W (für Wahn) 
und F (für Falsch) verwenden. 

In der binären Arithmetik ent- 
spricht die 1 dem W und die O0 
dem F. Keine Angst, falls Ihnen 
das noch unverständlich er- 
scheint, wir werden noch aller- 
lei Logeleien mit Binärzahlen 
treiben. Dann wird Ihnen das 
ganz geläufig sein. Was uns mo- 
mentan interessiert, Ist, & 
Computer Wahrheitsnieh® - 
gibt. Dazu machen wir einen 
kleinen Test mit dem folgenden 
Programm: 
10 INPUTA,B 
20 S=(A=B) 
30 PRINTABC 

In Zeile 20 ist eine Aussage 
enthalten: A=B. Wenn Sie A und 
B so eingegeben haben, daß 
beide gleich sind, dann ist diese 
Aussage wahr (W), undin © fin- 
den Sie den Wahrheitswert, den 
der Computer für W verwendet. 
Probieren Sie dies mal aus: Sie 
finden — I! Wenn aber A und B 
verschiedene Zahlen waren, ist 
die Aussage A=B falsch, und in 
C steht 0, was die Computerform 
von F ist. Weshalb —| als Wahr- 
heitswert des Commodore 64 für 
W? Das liegt daran, daß unser 
Computer für den Wahrheits- 
wert ein ganzes Byte reserviert. 
DasschreibterimFalle W voller 
Einsen: 
1111 1111 

Nach den Regeln von vorzei- 
chenbehafteten Binärzahlen ist 
das aber die Erscheinungsform 
von —|. 


2. Das merkwürdige IF A THEN ... 
Bei IF. THEN-Jerzweigungen 
wird vom Computer der gesam- 
te Ausdruck zwischen IF und 
THEN auf seinen Wahrheitswert 
untersucht (das kann dann eine 
Aussage sein, aber auch etwas 
anderes, zum Beispiel eine Va- 
riable). Dabeinimmt der C 64 al- 
les für wahr an, was bei dieser 
Untersuchung ungleich Null ist. 


ori ind 


Wenn also in einer Verzweigung 
der Form: 
IFATHEN ... 
Aschonirgendeinen Wert ange- 
nommen hat, der ungleich Null 
ist, wird die Bedingung als er- 
füllt angesehen. Probieren Sie 
mal mit verschiedenen Einga- 
ben für A: 
10 INPUT A 
20 IFA THEN PRINT "TEST" 
30 PRINTA 

In der uns geläufigeren Form 
dieser Verzweigung tauchen 
zwischen IF und THEN Aussa- 
geninmathematischer Form auf, 
indenendie Vergleichssymbole 
verwendet werden, zum Bei- 
spiel: 
= 100 THEN GOTO .... 


3. Rechnen mit Wahrheitswerten 

Außerhalb solch einer Ver- 
zweigung ist es manchmal gar 
nicht so einfach festzustellen, ob 
es sich bei einem Ausdruck um 
eine Aussage dreht oder vıel- 
leichtnurum eine Zuweisung. Es 
kommt hier sehr auf den Zusam- 
menhang mit dem übrigen Pro- 
grammtext an. Beispielsweise 
kann A=B sowohl eine Zuwei- 
sung sein (LET A=B)als auch ei- 
ne Aussage (C=(A=B)). In Pro- 
grammen, in denen viel mit logi- 
schen Öperatoren gearbeitet 
wird, empfiehlt sich deshalb — 
um mehr Klarheit zu schaffen —, 
die vom © 64 verstandene, aber 
so gut wie nie verwendete Basic- 
Vokabel LET bei Zuweisungen 
zu verwenden. 

Einnoch eklatanteres Beispiel 
ist enthalten in A=5+2. Das ist 
offensichtlich keine Aussage, 
könnte deutlicher aber noch als 
LET A=5+2 geschrieben wer- 
den. In einem anderen Zusam- 
menhang ist es eine Aussage: 
C=4+(A=5+2) 

Ist hier A=5+2 wahr (wenn 
A=7), ergibt sich ein C von 3, 
weil ja der Wahrheitswert der 
Aussage —1 beträgt. Imanderen 
Fall ist C=4. Man kann mit Aus- 
sagen — besser gesagt, mit Ih- 
ren Wahrheitswerten — also 
auch rechnen. 

Im folgenden Programmbei- 
spiel sind gleich fünf Wahrheits- 
werte miteinander rechnerisch 
verknüpft. Eshandelt sich um ei- 
ne kurze Routine zur Umrech- 





nung von ASCI-Code in Bild- 
schirmcode: 
10 INPUT'ASCI-WERT';A 
20 C= A-161-33*(A < 255)-64*(A 
<192)-32*(A < 160) + 32*(A < 96)- 
BA*A<BH4) 
30 PRINT"ASCI="A) POKE- 
GODE="CG 

Beispiel: ASCHI=65, Bild- 
schirmcode=1 

Aussagen können auch mit 
Strings gebildet werden. Auch 
dabei ergeben sich die Wahr- 
heitswerte —1l oder. Allerdings 
lassen sich hier sinnvoll nur die 
Vergleichsrelationen »=« und 
»ungleich« einsetzen. Alle ande- 
ren »größer als«, »kleiner als« 
etc. sind mit Vorsicht zu genie- 
ßen. Zur Ermittlung des Wahr- 
heitswertes werden nämlich von 
links nach rechts alle Buchsta- 
ben beider Strings in Form ihrer 
ASCIIWerte miteinander vergli- 
chen. Die erste auf diese Weise 
gefundene Abweichung führt 
dann zum Ergebnis. Ein Beispiel 
soll das Problem verdeutlichen: 

Die Aussage (A$<B$) soll uns 
einen Wahrheitswert liefern. 
Wenn nun A$="DZZZ” und 
B$="EAAA' definiert wurden, 
ergibt sich —l als Wahrheits- 
wert, weil der ASCII-Wert von D 
kleineristalsder vonE. DerRest 
der Strings spielt keine Rolle 
mehr. 


4. Die logischen Operatoren in Basic 

Drei Operatoren haben wir im 
Normalfall zur Verfügung für die 
sogenannte Bool&sche Algebra, 
wie man manchmal auch das 
Rechnen mit logischen Operato- 
ren nennt: 
NOT, AND, OR 

Die Tabelle | zeigt, wo ın 
der Prioritätenreihenfolge aller 
Operatoren diese drei einzu- 
ordnen sind. Ebenso wie bei 
den arithmetischen Operatoren 
(+%1 etc.) kann auch hier die 
Reihenfolge durch sinnvolle An- 
wendung von Klammern verän- 
dert werden. 
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Tabelle 1. Reihenfolge der 
Priorität von Operatoren 


5. Wahrheitstabellen 

Jede Verkoppelung von Aus- 
sagen (beziehungsweise Ihren 
Wahrheitswerten) mittels logi- 
scher Operatoren ergibt eben- 
falls wieder Wahrheitswerte. 
Wir hatten vorhin schon er- 
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wähnt, daß das Ergebnis ab- 
hängt: 

a) von den Wahrheitswerten der 
zu verknüpfenden Aussagen 
und 

b) von der Art der Verknüpfung. 

Das kann manchmal schon 
reichlich schwer zu durchschau- 
en sein, was welche Kombina- 
tion ergibt. Deshalb schreibt 
mansich eine Übersicht, die alle 
möglichen Ausgangs-Wahrheits- 
werte enthält und die nach der 
Verknüpfung entstandenen 
Wahrheitswerte. Solche Tabel- 
len nennt man Wahrheitstabel- 
len. Wir werden diese Tabellen 
im folgenden bei der Erklärung 
der logischen Operatoren ver- 
wenden. Wie man sıe erstellt 
und liest, wird Ihnen schnell ge- 
läufig sein. 

Noch eine Bemerkung: Die 
Anwendung der logischen Ope- 
ratoren auf Aussagen und auf 
Zahlen wird bei uns — aus Grün- 
den der besseren Verständlich- 
keit — getrennt behandelt wer- 
den. Das ist eigentlich nicht nö- 
tig, denn im Grunde genommen 
sind ja die Wahrheitswerte von 
Aussagen auch nur Zahlen. 


6. Die Anwendung von NOT auf Aussa- 
gen 

Der NOT-Operator erzeugt im- 
mer das Gegenteil des Wahr- 
heitswertes der Ausgangsaussa- 
ge. Wenden wir also NOT aufei- 
ne Aussage mit dem Wahrheits- 
wert W an, dann ergibt das den 
Wert F. Dasselbe geschieht im 
umgekehrten Fall. 

Dazu wollen wir uns eine 
Wahrheitstabelle schreiben (Ta- 
belle 2). Inder linken Spalte sind 
die beiden möglichen Wahr- 
heitswerte einer Aussage A auf- 
geführt. Die rechte Spalte ergibt 
sich durch Anwendung von NOT 
auf die Werte der linken Spalte: 
NOTW=F 
NOT F-=:W 


Tabelle 2. Wahrheitstabelle: 
NOT bei Aussagen 





Das ist gar nicht so schwer, 
nicht wahr? An einem Beispiel 
wollen wir uns das auch noch 
mal ansehen. Die Zeile: 

10 A=(83=5):PRINT NOT A 
ergibtden Wert —1. Die Aussage 
3=5 ist ja falsch (F oder für den 
Computer 0) und A deshalb 0. 
NOT A ergibt dann das Gegen- 
teil, also W oder —. 

Eine Basic-Zeile wie die fol- 
gende: 

0 A=NOTA 

kann man wie einen Flip-Flop- 
Schalter einsetzen, fallsmanden 
Wahrheitswert von A zuvor als 0 
oder —| definiert hat. Jedesmal, 
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wenn das Programm über die- 
sen Ausdruck läuft, kıppt der 
Wert von A.. 


7. NOT auf Zahlen angewendet 

Zahlen oder Variable, auf die 
der NOT-Operator angewandt 
wird, verkehren sich in ihr Einer- 
komplement. Falls Sie mit den 
Begriffen »Einerkomplement« 
und »Zweierkomplement« 
Schwierigkeiten haben, weise 
ich Sie nochmal auf den hıer ab- 
gedruckten Kasten mit Erläute- 
rungen hin. Jedes Bit wird also 
»gekippt« AuseinerOwird l und 
umgekehrt. Die Wahrheitstabel- 
le kann hier ähnlich aufgestellt 
werden wie für Aussagen, nur 
tauchen hier anstelle von W und 
Fnun 1 und 0 (also die Bitwerte) 
auf (siehe Tabelle 3). 


Tabelle 


3. Wahrheitstabelle: 


NOT bei Zahlen 





Eine Anwendung von NOT wä- 
re beispielsweise das gezielte 
Kippen von Bytes oder 2-Byte- 
Werten. Besonders bei Sprite- 
Programmen ist sowas denkbar. 
Nehmen wir mal anser 
acht Sprites definiert, vondenen 
vier bis zu einem bestimmten Er- 
eignis sichtbar sein sollen. Die 
anderen vier sind solange abge- 
schaltet. Wenn das Ereignis (Ta- 
stendruck oder Zusammenstoß 
..) eintritt, werden die obersten 
vier ab- und gleichzeitig die an- 
deren vier angeschaltet. Regi- 
ster 21 (53269) des VIC-II-Chip 
stellt für jedes Sprite ein Schalt- 
Bit zur Verfügung (0 steht dort für 
einausgeschaltetes und | für ein 
aktiviertes Sprite). Sollen also 
zuerst die Sprites 0, 2,4, ban-und 
1, 3, 5, Tabgeschaltet sein, dann 
enthält Register 21 das Bit 
Muster: 

0101 0101 

Darauf nun eine NOT-Opera- 
tion angewendet ergäbe genau 
das erwünschte Kippen: 

1010 1010 nach NOT. 

Es läge daher nahe, etwa so zu 
programmieren: 

POKE 53269,NOT PEEK(53269) 

Leider ist das nicht möglıch. 
Versucht man es trotzdem, er- 
hält man einen ILLEGAL QUAN- 
TITY ERROR. Woran liegt das? 
Die Ursache dafür liegt wieder 
in der Eigenart, wie der C 64 
Integer-Zahlen interpretiert. 
Zwar erzeugt die NOT-Opera- 
tion das Einerkomplement der 
Ausgangszahl, verstanden wird 
dieses Ergebnis aber als Zwei- 
erkomplementzahl. Daraus 
folgt, daß man mit der obigen 
Anweisung versucht, eine nega- 
tive Zahl in die Speicherstelle zu 
POKEn, und da streikt unser 
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Computer. Die Binärzahl 1010 
1010 wird als —86 verstanden. 
Was kann man tun, daß der wah- 
re Wert, also 170, in den Spei- 
cher gePOKEt wird? Bei 1-Byte- 
Zahlen ist das relativ einfach: 
Man wandelt sie durch Abzie- 
hen von 256 in eine 2-Byte-Zahl 
um, also NOT(A-256). In Bild 2 ist 
zu sehen, was dabei geschieht. 


Ein anderer Weg für 1-Byte- 
Zahlen (also Zahlen, die kleiner 
als 255 sind) ist NOT A AND 255, 
was wir aber erst später verste- 
hen werden, wenn wir die AND- 
Operation kennengelernt ha- 
ben. Vorsicht muß man walten 
lassen, wenn auch negative A- 
Werte auftreten. Negative A 
können ohne Probleme der 
NOT-Operation unterzogen wer- 
den, weil das Ergebnis in jedem 


. Fall positiv ist. Verwendet man 


NOT(A-256), kommt es zu Feh- 
lern. Der Weg über NOT A AND 
255 ist auch mit negativen |-Byte- 
Zahlen möglich. Am sichersten 
wäre also diese Basıc-Zeile: 
POKE53269,NOTPEEK(53269) 
AND255 

2-Byte-Zahlen spielen bei PO- 
KEs keine Rolle, weshalb wir auf 
die Umwandlung der negativen 
Zahl in den vorzeichenfreien 
Ausdruck hier nicht eingehen 
werden. Eine andere Sache 
muß bei der Anwendung von 
NOT noch bedacht werden: Die- 
arbeitet mit 
Integer-Zahlen. Treten nun als 
Argumente »Komma-Zahlen« 
auf, dann führt der © 64 zuerst ei- 
ne INT-Operation aus, die unter 
Umständen zu Fehlern führen 
kann: 3999 ergibt dann ein deut- 
lich anderes Ergebnis als 4001. 

Die NOT-Operation kann nur 
aufZahlen, nicht aber aufStrings 
angewendet werden. Aller- 
dings erfolgt die computerinter- 
ne Speicherung von Buchstaben 
ja als ASCII-Werte, also auch als 
Zahlen. Wenn wir daher die 
ASCII-Codes eines Textes der 
NOT Verknüpfung unterziehen, 
haben wir auch Strings dieser 
Operation zugänglich gemacht. 
Genau dastut ein kleines Demo- 
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68 FRINT:PRINT 


:K=9 


118 C+$="" 


1 
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5B PRINT" {CLR,7SFACE>IGEHEIMCODE MIT NOT" 

78 FRINT" GEBEN SIE EIN WORT EIN"; 

INPUT Af:L=LEN(AF):DIM AtL),„B(L),„BE(L) 

128 FOR I=1 TO L:A(I)=ASC(MIDE(AF,I,„1)):Bl 
I)=NOT AtI)-257:B#£ (I)=CHRE(B(I)) = NEXT 


138 FOR I=1 TO L:C$#=C#H+B#(I):NEXT I 


148 IF K=® THEN:PRINT:PRINT"TEXT{11SPACE}= 
";AF <247> 

145 IF K=1 THEN:PRINT:PRINT"GEHEIMCODE {5SP 
ACE}= ";A$ <130> 
158 K=K+1:IF K=1 THEN A$=C$:60T0 1198 <038> 
158 PRINT:PRINT"ENTSCHLUESSELT = ";C# <1@1> 


Programm Logik-1. Mit NOT eine Geheimschrift erzeugen 


Programm (Programm Logik-]): 
Es ver- und entschlüsselt Texte 
mittels NOT. 

In diesem Demo-Programm 
wird Text Buchstabe für Buchsta- 
be in die ASCII-Werte übertra- 
gen und diese dann durch NOT 
komplementiert und in C$ ge- 
speichert. Der Ausdruck ist 
dann ein unverständliches Kau- 
derwelsch, das aber durch eine 
zweite NOT-Operation wieder 
lesbar wird. 


8. Eine kleine Hilfe 

Als Programm Logik-2 finden 
Sie eine kleine Denk- und Re- 
chenhilfe hier abgedruckt. Die- 
ses Programm kann Zahlen zwi- 
schen —32767 und +32767 den 
logischen Verknüpfungen unter- 
ziehen und zeigt Ihnen dabeı, 
was sich im Binärformat abspielt 
und wie die Argumente — falls 
negative Zahlen auftreten — im 
vorzeichenfreien Format ausse- 
hen. Nach dem RUN bietet Ih- 
nen ein Menü fünf Möglichkei- 
ten an: NOT, AND, OR, EOR und 
Programmende. NOT kennen 
Sie ja schon, die anderen logi- 
schen Operatoren werden Ih- 
nen iin der nächsten Folge geläu- 
fig werden. Dort wird Ihnen die- 
ses Programm dann einige Hil- 
festellungen geben für etwas 
kompliziertere Sachverhalte. 
Wenn Sie eine Option angewählt 
haben, werden zwei Zahlenein- 
gaben verlangt (bei NOT nur eı- 
ne) und dann die entsprechen- 
den Binärzahlen, die vorzei- 
chenfreien Formen und das Er- 
gebnis der Verknüpfung ausge- 
druckt. Innerhalb der gesteck- 
ten Grenzen sind alle Zahlen- 
eingabe-Formate möglich. Ein 
Tastendruck bringt Sie wieder 
ins Menü zurück. 

In der nächsten Folge werden 
wir uns die Operatoren AND 
und OR ansehen. Ein in dem 
WAIT-Befehl versteckter weite- 
rer Operator EOR soll aufge- 
spürt werden, und wir werden 
wieder einige Anwendungen 
der Boole'schen Algebra in un- 
serem Computer kennenlernen. 

(Heimo Ponnath/gk) 
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REMAKE ERERHER FRE 
FRINT CHR? (147):60TD 202 

REM *#***%* UP-CURSOR SETZEN ##*** 

POFE Z11,5:POKE 214,2:5Y5 598642: RETURN 
REM #***= UP-EINDSABETEST #rt#=r* 

E=ABS (E) : A=(E>=B) : BE= {Ei 255) 

IF A AND B THEN M=8: RETURN 

A= (E>=255) :B= (EX 32768) 

IFA AND B THEN M=15: RETURN 

M=B: RETURN 

REM ***%** UF-EINSABE i 
5=1:2=5:605SUB 75: FRINT 
ZAHL SOLLS DENN SEIN?" 
Z=7:G0S5UE 25: FRINT"SIE 
2767UND +32767 SEIN" 
Z=9:G0SUB 25 

B THEN FOKE 781,9:5Y5 59993:50T0 75 
PRINT CHRE£ (38) :RETUFRN 

REM ####= UF-EINGABEE 7 X##r 04 #%%+ 


ARRRFRRER 
CHRE (25) "WELCHE 


5=1:2=5:605UB 25: FRINT CHR#$ (28) "GEBEN 5 


IE NUN DIE BEIDEN ZÄHLEN EIN." 
5=-1:2=7:G05UE Z5:FRINT"SIE MUESSEHN 
ua) Us 332767 BEIN!" 


ZW. 


W1:GOSUB 35:M1=M 
IF M=8 THEN FOEE 781,7:5Y5 597923:60T0 
192 


Z=11:G05UB 25: INFUT"ZWEITE ZAHL=";W2:E 


=WZ:GOSUB 35 
IF M=B THEN FOKE 781,11:5Y5 597803:650T09 
1198 


M=158+6*((M1=8) AND (M=5}) a FRINT CHRE (22) 
: RETURN 


5 REM **##+ UF-UMRECHNUNGS DEZ/BIN #### 


BIl#="".DI=DE 
DI=DI/z:Dr="B":IF DIS>INTIDII THEN 
1 Bike 


DI=INT(DI):BI$=D$+BI$: IF DI>® THEN 135 
14 


IF LENtBIF)<M THEN Bit="2"+BIF:50T9 
I 

RETURN 

REM #**%* UF-UMRECHNUNG BIN/DEZ #*#%#* 


DE=B:FOR I=1i TO M:IF MIDFC(AF,I,13="1"T 


HEN DE=BE+2T1(M-I? 
NEXT IsRETURN 
REM #*** UF-BILDSCHIRMAUSSABE #*###* 


FRINT CHR&# (158) TAB(S} DE; TAB(32-M)BI&:C 


HRE (38? : RETURN 

REM 

REM *#**= HAUFTFROSRAMM-VARTABLE *#*# 
S=B: Z=R: E=B: A=B: B=B: M=B: W=B: WIi=B: WI=B: 
Mi=8: I=2:K=8: X=B 

DI=38: DE=8:C=B: V=8 
BIE="":De="".: AF=""s BES" "ts Ca" ZE=S"——— 


--- - - -- - - "BEg="“ 

DIM DE(3),BIE(3) 

REM ###* HAUFTFROGRAMM-MENUE ###3#% 
FOKE 
ATICHRE (FB) 

Z=3:5=2:6G05UE 25:FRINT CHRE(18)" 
OGISCHEN BEFEHLE IN BINAERFORM " 
Z=7:50SUB Z5:FRINT TAB{12) "NOT"TAB (25) 


BEST IRE 

Z=9:GD5SUE 25:FRINT TAB(1B) "AND"TAB(ZI) 
Z=11:G05UE 25:FRINT TAB(C1BO)"OR"TAR (25) 
Z=13:G05UB 25:FRINT TAB(1B) "EOR"TAB (25 
) a EN 


Z=15:60SUB 
DE"TAB (25) "5" 
FOKE 646,18: 2=20: 60SUB 25:PRINT"BITTE 


WAEHLEN SIE EINEN MENUEFUNKT. .."CHRF (3 


BD) 
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Programm Logik-2. Sie sehen, was bei der Verknüpfung von Zah- 
len mit logischen Operatoren geschieht. Beachten Sie bitte die Ein- 


; Z=22:5=9:50SUB 


SET B#: IF BF£<"1"DOR BF>-"S"THEN 348 

DN VAL{BF)GOSUB 429,520 ,692,7290,898 
=?3:5=1:605UB 25: FRINT CHRE(3) "WEITER 
DURCH TASTENDRUCK. .." 

FOKE 193,8: RAIT 1978,1:G0T0 308 

REM x##=* OFTION - NOT #e#2# 204434 
FRINT CHRF (147): 27=2:5=1:605UB 25:FRINT 
CHRE{18)" OFTIONTZSFPACEFNOT {S5SFPACEF"C 

HRFE (145) 

Bl#="":BEf="":Df=""W=ß: DE=B: K=9: GOSUE 
&5: IF WB THEN 458 
DE=W: GOSUB 139- 
Z=15:5=-9:605UB 25: 505UB 
1S),.Z#r" NEE”=a BEZ" 

FOR I=i TG M:DF=MIDE (5IF,I,1): IF De="1 
"THEN DF="B":60T0 428 

DE="1" 

BEF=-BEF+HDE:NEXT I: IF K=1 THEN RETURN 
BIf=BE#F: AF=BEF:50OSUE 1358: 7=17:5=B: GOSU 
EB 25:665UB 175: BEF="":RETURN 

REM ***%* UF-NEGATIVE BINAERZAHL *%%* 
W=NOT WıDE=SR:50SUB 1328:K=1:605UB 415: A 
#=BE#:505UB 16B:K=d: IF X=1 THEN RETURN 
BI#=BEF:BEF="":G0OT0O 412 

REM ##3** DFTION - AND #83 # 
PRINT CHRE£ (147): 7=2:5=1:6505UB 25:PRINT 
CHR# {15} " GPTION{ZSFATEFAND ZS5SPACE>"C 
HRE (1453 


i75:FRINT TABt 


= REM **** UF-EINGSABENVERARBEITUNG %% 


GOSUE FB: IF W1XQ THEN W=W1:X=1:605SUB 4 

5B:X=B:BIFil1;=BEF:DEt1)=DE: BEF="":DE=B 

IF W2EXiB THEN KeW2:iX=1:60SUE 450:X=0:Bl 

=(2)=BEf:DE (2) =DE: BEF="":DE=Q 

IF Wi>=28 THEN DE=W1:60SUB 130:DE(1)=DE 

:Blf(i1)=Blf:DE=Q:BI#="" 

IF W2>=8 THEN DE=W2:G0OSUE 1398:DE{2)=DE 

:BI#(?25=Bl#f:DE=9:BIF="" 

Z=15:5=98:60SUB 25:DE=DE (1):BI$=BIf (1): 

GSOSUB 175 
45: GOSUBE 25: DE=DE {2}: BI#=BI# (2) :G05U 

B IT75:IF V=1 THEN RETURN 

PRINT TAB(I1S)ZF+" AND"«:BIE(F)="" 

FOR I=1 TO M:A=VAL (MIDECBIF(1),I,1)):B 

=VYAL(MIDE {EI (2),1,1?):C=A AND E 

BI£(3)=BI#(3;+RISHTF STREICH „LI NEXT I 

AF=BIF(3):G0O5UB 1&0:BlIF=BI# (53) 

Z=18:605UB 25:605UB 175:RETURN 

REM ###= OFTION - OR #233 +24 4%%%+ 


FRINT CHR#F{147):7=2:5=1:605UB 25: FRINT 
CHRE{15)" OFTIONTISPACEFOR TSSFPACEF"CH 
RE(146) 


V=-1:605UJBE 595: V=B 

FRINT TAB{1S57 Z£+" OR": BIF(I)="" 

FOR I=i TO Mz:A=VAL(CMIDE(BIF(1),I,1})):B 
=VAL(MIDF(BIE(2},I,1)):C=A OR B 

BI (33=BlI£(3)+RIGHTE(STRE(C) „ 1) :NEXT I 
AF=BIF (3) :50SUB 1658: BIrF=BIlf(3) 
Zz=18:G05UE 25:G05UB 175:RETURN 

REM *#*#* DFTION — EOR #####3%##* 

FRINT CHRF# (147): 27=2:5=1:6G05SUB 25:FRINT 
CHR (185)" DOPTIONI2SFACEFEDR TSSPACE}"C 

HRE(14&) 

vV=1:555UB 585:V=B 

FRINT TABt15SIZE+" EOR":BIEt3)="" 

FOR I=1i TOD M:A=VAL (MIDF(BIF(1),I,1?):B 

=VAL(MIDF(BiF(2),I,1)) 

IF A+B=i THEN C=1:5070 7382 

c=2 

BI£(3)=BIF(3)+RIGSHTE (STRE(C} „1I3: NEXT I 
ıAF=BIF(3}:50SUB 188: BIF=BlE (73) 
Z=18:595UB 25:505UB i75:RETURN 

REM #*** DFTION-FROSRAMMENDE ###* 
FRINT CHr#t147):5=8: 7=12:605JB 25:FRIN 
T"DAS WAR’S...TSCHUESS !" 

25: END 
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Einige Erläuterungen zum Rechnen mit 
Binärzahlen 


a) Dezimales und binäres Zahlensystem 

Wir sind es gewohnt, im dezimalen Zahlensystem zu 
rechnen unter Verwendung der Ziffern O bis 9. Die Grund- 
lage unseres Zahlensystems ist die Zahl 10. Reichen die 
Ziffern 0 bis 9 nicht aus, um eine Zahl (zum Beispiel 9+]) 
darzustellen, dann führen wir den Stellenwert einer Zahl 
ein. Hierbei hat jede Stelle in einer Zahl einen Faktor, der 
sich berechnet aus 10Stelle, Zum Beispiel in der Zahl 132 
befindet sich die Ziffer 2 an der nullten Stelle, und sie wird 
mit dem Faktor 10° multipliziert (10°=]). Für unsere Bei- 
spielszahl können wir so schreiben: 

132 = 1#10t2+3*1011+2*1010 =1*100+3*10 +2%*] 

Nach demselben Prinzip wird im Binärsystem verfah- 
ren. Hier gibt es allerdings nur die Ziffern 0 und 1. Die 
Grundlage dieses Systems ist die Zahl 2. Auch hier spielt 
der Stellenwert die entscheidende Rolle. Der Faktor ist 
nun aber die entsprechende Zweierpotenz (2tStelle). Die 
Binärzahl 110 beispielsweise setztsich dann so zusammen: 
110=1*212+1*211+0*210 
= 1*4+1*2+0*1l=6 


b) Umrechnung Binär- in Dezimalzahl 

Damit haben Sie praktisch schon gesehen, wie man Bi- 
närzahlen in Dezimalzahlen umrechnen kann: Jeder Stelle 
entspricht eine Zweierpotenz. Älle Zweierpotenzen, an 
deren Stelle eine 1 steht, werden zusammengezählt. Da- 
bei gilt: 2°=1 (siehe Bild ]). 


3.Stelle 2. Stelle 


a ind 
+1*2>2 + 172@ 


Il, 





pe n el 1 ER ER K  ERN E EE N A a  n 
Bild 1. Umrechnung einer Binärzahl (11101) in eine 
dezimalzahl (29) 


c) Umrechnung Dezimal- in Binärzahl 

Der umgekehrte Weg läßt sich durch eine Kettendivi- 
sion der Dezimalzahl durch 2 realisieren. Jeweils die Divi- 
sionsreste ergeben eine Stelle der Binärzahl. Beispiel (die 
Zahl 29): 


En Bi 


Bild 1a. Umrechnung einer Dezimalzahl in eine Binärzah 





Die Kettendivision ist beendet, wenn sich als Ergebnis 0 
zeigt. Die Zahl 29 lautet also ım Binärformat 11101. 


d) Bits und Bytes 

Eine Stelle einer solchen Binärzahl nennt man ein »Bit«. 
Unser Computer istso gebaut, daß er 8Bitzu einer Einheit 
zusammenfaßt. Solch eine Einheit ist ein Byte. Jede Spei- 
cherstelle des C 64 faßt genau ein solches Byte. Weil aber 
die größte in einem Byte darstellbare Zahl binär 11111111 ıst 
— was dezimal 255 entspricht (rechnen Sie mal nach) —, 
meldet unser Computer einen ILLEGAL QUANTITY ER- 
ROR, wenn wir versuchen, eine größere Zahl in eine Spei- 
cherstelle zu POKEn. 

Der C 64 ist daraufeingerichtet, ganze Zahlen als 2-Byte- 
Werte (also mit 16 Bit) zu verarbeiten. Die auf diese Weise 


146 y.X3p 








größte darstellbare Zahl ist 11111111 11111111, was 68535 ent- 
spricht. Das ist übrigens genau die Anzahl der Speicher- 
stellen unseres Computers. Allerdings erlaubt der © 64 
bei Integerzahlen lediglich Eingaben zwischen 32767 und 
—32768. Die Ursache dafür ist die Art, wie negative Binär- 
zahlen erzeugt und gespeichert werden. 

e) Negative Binärzahlen 

Bit 7 (also das ganz links stehende Bit eines Bytes: Die 
Zählung fängt rechts mit 0 an) einer 8-Bit-Zahl oder Bit 15 
einer 16-Bit-Zahl wird als Vorzeichenkennung verwendet. 
Ist dieses Bit eine 0, dann liegt eine positive, ansonsten ei- 
ne negative Zahl vor. Die BinärzahlOl11 1111 1111 1111 (82767) 
ist daher die größte vorzeichenbehaftete 16-Bit-Binärzahl. 
Wenn also Bit 7 (oder bei der 16-Bit-Zahl Bit 15) eine 1 ent- 
hält, handeltessich um eine negative Zahl. Unser Compu- 
ter hat aber eine besondere Art, solche negativen Zahlen 
zu verstehen: Er interpretiert sie als »Zweierkomplement- 
zahlen«. Ein Beispiel, in dem wir die Zahl —29 in dieses 
Format bringen, soll erläutern, worum es sich dabei han- 
delt: 

Schritt ]: 

Man berechnet zuerst die Binärzahl der positiven Zahl, 
also von 29: 

0000 0000 0001 1101 
Schritt 2: 

Davon wird nun das sogenannte Einerkomplement ge- 
bildet, wobei jedes Bit in sein Gegenteil verkehrt wird: 
1111 1111 1110 0010 
Schritt 3: 

Aus dem so erhaltenen Einerkomplement bildet man 
das »Zweierkomplement« durch Addieren einer |: 

11 1 110 0010 


l+ 


Das Ergebnis ist —29 im Zweierkomplement-Format. 


Hat man eine Zahl im Zweierkomplementformat vorlie- 
gen, dann kann man auf genau demselben Weg ıhren 
Wert feststellen. Das wollen wir uns noch an einer 8-Bit- 
Zahl ansehen: 
Schritt |: 

Es liegt eine Binärzahl vor, die so aussieht: 
1111 1110 
Schritt 2: 

Das Einerkomplement wird gebildet: 
0000 0001 
Schritts: 

Das Zweierkomplement wird durch Addieren von 1 er- 
zeudt: 
0000 0001 


0000 0010 


Schritt 4: 

Umrechnen der Binärzahl in die Dezimalzahl ergibt hier 
den Wert 2. Das Vorzeichen war negativ (Bit 7istjalinder 
ursprünglichen Zahl). Es handelte sich also um die 
Zahl —2. 


0000 





Vorzeichenbit = U (posıtıv, 





Bild 2. Ablauf der Operation NOT (A—256) bei A=0101 0101 
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C 64 Wettbewerb: Terminalprogramm 


Terminal- 
programm 
der Spitzen- 
klasse 


Eine harte Nuß 
haben wir unseren 
Lesern mit diesem 
Wettbewerb zu 
knacken gegeben. 
Trotzdem erreich- 
ten uns viele 
Einsendungen als 
Anwärter auf 

den ersten Preis. 





Lebenslauf 


Ich wurde am 15.9.1966 ge- 
boren. Heute gehe ıch ın die 
l2. Klasse des Ratsgymnasi- 


ums in Stadthagen. Bevor ıch 
mich mit dem Computer be- 
schäftigte, hatte ich die Hob- 
bys Modelleisenbahn und 
Elektronik. Weiterhin bin ich 
noch Modellflieger. 

Den C 64 habe ich seit ei- 
nem Jahr. In dieser Zeit lern- 
teich zunächst Basic und Pas- 
cal, was auch bei uns in der 
Schule im Informatikunter- 
richt verwendet wird. Seit ei- 
niger Zeit beschäftige ich 
mich mit Assembler. 

Vor zirka einem halben 
Jahr kaufte ich mir einen 
Akustikkoppler. Da ich kein 
passendes Terminalpro- 
gramm fand, begann ıch mir 
ein eigenes Programm zu 
schreiben. Dieses wurde 
dann immer mehr erweitert, 
bis es die heutige Form hatte. 

(Peter Falk) 
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P° Falk konnte mit sel- 
nem Programm »Super 
Term 64« diesen Wettbe- 
werb für sich entscheiden. 
Besonders erwähnenswert 
ist neben der Leistung die- 
ses Programmes der über- 
sichtliche und gut durch- 
schaubare Programmierstil. 

Der Autor: »Ich habe bei 
dem Terminal-Programm 
einerseits darauf Wert ge- 
legt, daß es möglichst kom- 
fortabel und benutzer- 
freundlich ist, andererseits 
war mir aber auch ein gro- 
ßer Terminal-Speicher sehr 
wichtig. Deswegen habe ich 
auf unnötige »Verzierungen« 
verzichtet. So kann man bei 
den UÜbertragungs-Parame- 
tern zum Beispiel nur Baud- 
rate, Datenbits und Stop-Bits 
in begrenztem Umfang än- 
dern. Ich habe jedoch die 
Erfahrung gemacht, daß 
man bei allen Mailboxen ei- 
ne einwandfreie Verbindung 
hat, wenn man die Normal- 
parameter (300 Baud, 7 Bit, 1 
Stop-Bit) benutzt. Der © 64 
empfängt nämlich auch 
dann richtig, wenn er zum 
Beispiel auf 7 Datenbit ein- 
gestellt ist und die G - 
stelle mit 8 Bit sendet. Nur 
wenn man auch Steuerzei- 
chen übertragen will, muß 
man auf 8 Datenbit umstel- 
len. 


Der große Terminal-Spei- 
cher wurde unter anderem 
dadurch erreicht, daß der 
gesamte vom ROM. überla- 
gerte RAM genutzt wird, in- 
dem das Betriebssystem 
beim Zugriff auf den RAM 
mit einer Assembler-Routine 
abgeschaltet wird. Weitere 
Maschinen-Routinen wer- 
den für das Laden von Daten 
in den Terminal-Speicher 
und für das Listen des Direc- 
torys benutzt. Sie werden al- 
le über DATA-Zeilen im La- 
der eingelesen, so daß sie 
nachher keinen Speicher- 
platz mehr verbrauchen. 


Bei der Programm-Über- 
tragung nach der »leleterm- 
Norm« können natürlich die 
selben Fehler auftreten wie 
bei Teleterm, nämlich dann, 
wenn sich zwei UÜbertra- 
gungsfehler in einem Block 
gegenseitig aufheben. Trotz- 
dem ist die Übertragungs- 
Routine etwas sicherer als 
bei Teleterm. Am Anfang 
der Übertragung kann man 
die Länge einer UÜbertra- 
gungseinheit einstellen (bei 


Achtung! 


Die Qualitäten dieses 
Programmes zwangen 
uns zu einer etwas unge- 
wöhnlichen Maßnahme. 

Das hier abgedruckte 
Basic-Programm ist ın 
dieser Form nicht lauffä- 
hıg. Es muß erst mit dem 
Austro-Speed-Compiler 
compiliert werden. Was 
soll dann der Abdruck, 
beziehungsweise wer hat 
schon diesen Compiler, 
werden Sie wohl fragen. 
Nun, wir sind von diesem 
Terminalprogramm und 
seinen Leistungen über- 
zeugt. Ein Abdruck der 
mit MSE einzugebenden 
compilierten Version wür- 
de mindestens zehn Sei- 
ten beanspruchen. Dies 
halten wır für nicht zumut- 
bar. Um nun allen Lesern 


Teleterm: »Programmsatz- 
länge«). Bei einer guten Ver- 
bindung kann sie ruhig auf 
296 Byte gestellt werden; die 


olkhenawing ist dann etwas 


schneller.« 


Ladeprogramm 


Nachdem man den Lader 
geladen und mit RUN gestar- 
tet hat, werden die Funk- 
tionstasten-Belegungen von 
der Diskette geladen, soweit 
sie schon vorhanden sind. 
Ansonsten wird der F-Iasten- 
Speicher gelöscht. Danach 
erscheint ein Menü, in dem 
man zwischen dem Termi- 
nal-Programm und dem Edı- 
tor wählenkann. Wenn man] 
oder 2 gedrückt hat, wird 
das jeweilige Programm ge- 
laden und automatisch ge- 
startet. 

In die ersten Programm- 
zeilen des Laders kann man 
individuelle Parameter 
schreiben. So kann man ın 
Zeile 90 Hintergrund- und 
Rahmenfarbe eingeben 
(Schriftfarbe muß schwarz 
bleiben), in Zeile 110 den 
Preis für eine Telefon- 
Gebühreneinheit ändern 
und in den Zeilen 30 und 40 
kann man Parameter zur 
Druckeranpassung einge- 
ben (Sekundäradresse und 
maximal fünf sonstige Para- 
meter). 

In den Zeilen 350 bis 580 
werden die Ässembler-Rou- 


Achtung! 


dieses Programm zu- 
gänglich zu machen, bie- 
ten wir in diesem Fall ei- 
nen Extraservice Alle, 
dıe an dem MSE-Listing 
interessiert sind, können 
dıes gegen Einsendung 
eines : Freiumschlages 
(DIN A6, frankiert mit 1,10 
Mark) bei folgender 
Adresse anfordern: 
Markt & Technik Verlag 
Redaktion 64’er 
Stichwort: Terminal 
Hans-Pinsel-Straße 2 
8013 Haar bei München 
Eine weitere Möglich- 
keit, das Listing zu nutzen, 
bietet Ihnen natürlich 
auch der Leserservice. 
Auf der heftbegleitenden 
Diskette befindet sich na- 
türlich auch die compi- 
lıerte Version. (rg) 





tinen für Speicherzugriff, 
LOAD und Directory einge- 
lesen. 

Die vorhandenen Druk- 
kerparameter sind für einen 
Epson-Drucker mit Görlitz- 
Interface zugeschnitten (Se- 
kundäradresse: 0, Parame- 
ter: »chr$(27)t«, also 27, 32, 
84). 


Terminalprogramm 


Das Terminal-Programm 
muß mit dem Lader geladen 
werden, damit es funktions- 
tüchtig ist. Im folgenden wer- 
den die einzelnen Menü- 
punkte erklärt: 

l. Kommunizieren 

Nachdem man 1 gedrückt 
hat, muß man eingeben, ob 
die Gegenstelle mit oder oh- 
ne Echo arbeitet. Danach 
wird man gefragt, ob manei- 
ne Berechnung der Telefon- 
gebühren wünscht. Wenn ja, 
dann müssen die Gebühren- 
zone und der Gebührentarif 
(vor oder nach 18 Uhr plus 
Wochenende) eingegeben 
werden. Nachdem man die 
Verbindung hergestellt hat 
(was ja durchaus etwas län- 
ger dauern kann!) startet 
man den Terminal-Modus 
mit einem Tastendruck (die 
--Taste führt ins Menü zu- 
rück). Im Terminal-Modus 
wird nun eine Help-Liste aus- 
gegeben, inder alle Funktio- 
nen aufgeführt sind, die man 
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C 64 Wettbewerb: Terminalprogramm 


über»Commodore«-Taste an- 
sprechen kann. »Commodore $« 
bewirkt, daß alle empfange- 
nenZeichenin den Terminal- 
Speicher geschrieben wer- 
den, der eine Größe von 
46000 Byte hat. Auf ein auto- 
matisches Abspeichern ha- 
be ich wegen der Time-Out- 
Regelung der meisten Mail- 
boxen verzichtet. Außerdem 
muß man schon ganz schön 
lange telefonieren, um den 
Speicher voll zu bekommen. 
»Commodore Ex beendet den 
Speichervorgang wieder. 
»Commodore A« bewirkt, daß 
der Inhalt des Terminal- 
Speichers ausgesendet 
wird. So kann man zum Bei- 
spiel vorher abgefaßte Brie- 
fe übertragen. Abbruch mit 
'—' Auch Basic-Programme, 
die in einer Sequenz vorlie- 
gen, können so übertragen 
werden. Diese Prozedur rea- 
glert auf die Steuerzeichen 
CTRL—S = Stop 

CTRL— Q = Weiter 
CTRL—X = Abbruch 
»Commodore L« löscht den Ter- 
minal-Speicher. 

»Commodore B« gibt an, wievie- 
le Bytes im Speicher schon 
belegt und wieviele noch frei 
sind. 

»Commodore G« zeigt die Zeit 
und die Gebühren an, die 
schon »vertelefoniert« sınd. 
»Commodore H« gibt die ange- 
zeigte Help-Liste nochmals 
aus. 

»Commodore P« bietet eine Be- 
sonderheit: In diesem Mo- 
dus ist es möglich Basic- und 
Maschinen-Programme zu 
übertragen und zwar nach 
der »IELETERM-Norm«. 


Man kann sich jetzt also Pro- 
gramme aus Mailboxen ho- 
len, die eine Teleterm-Box 
besitzen (zum Beispiel K.1S,., 
RTC., MHB etc.) oder man 
kann Programme unter 
Freunden und Bekannten 
austauschen, ohne Teleterm 
benutzen zu müssen. Es ist so 
eine weitgehend fehlerlose 
Übertragung von Program- 
men möglich. 

Statt »Commodore &« und 
»l« bei Teleterm muß man 
hier » Commodore P« und »E« 
für empfangen drücken. 
»Commodore t« unterbricht 
den Terminal-Modus, das 
heißt man kann jetzt alle Me- 
nüpunkte anwählen, ohne 
daß die eingestellten Para- 
meter und die Gebühren 
verloren gehen. Mankannso 
also auch während man mit 
einer Mailbox kommuniziert, 
die anderen Menüpunkte 
ausführen. 

»Commodore —« beendet den 
Terminal-Modus. Hier wer- 
den Jetzt die Zeit und die Ge- 
bühren angezeigt und abge- 
speichert, und dann der Ge- 
samtbetrag angezeigt. 

2. Daten speichern 

Hier wird der Inhalsdes, 
Terminal-Speichers auf Dis- 
kette gespeichert. Man muß 
dafür den Namen angeben, 
unter dem abgespeichert 
werden soll. 


RETURN bewirkt 
Rücksprung ins Menüs. 
3. Entspricht Punkt 2, nur daß 
hier geladen wird. 


4. Daten ausgeben 
Unter diesem Menüpunkt 
wird der Inhalt des Terminal- 


den 


Speichers auf dem Bild- 
schirm oder dem Drucker 
ausgegeben. 
Fl = Ausgabe auf dem Bild- 
schirm 
F3 = Ausgabe auf dem 
Drucker 
F5 = Bildschirm-Hardcopy 
— = Menü 

SPACE hält die Ausgabe 
an. Sie kann dann mit einer 
beliebigen Taste fortgesetzt 
werden. 


5. Funktionstasten 

Hier kann man sich eine 
Übersicht der F-Tasten-Bele- 
gungen ausgeben lassen 
und sie gegebenenfalls än- 
dern und abspeichern. 


6. Parameter ändern 

Die Baudrate und die An- 
zahl der Daten- und Stop-Bits 
können hier verändert wer- 
den. 


7. Gebühren ansehen 

Wenn man mit der Gebüh- 
ren-Berechnung arbeitet, 
kann man hier den abge- 
speicherten Gesamtbetrag 
abrufen und die Gebühren 
am Ablesetag löschen. 


GinDingesiehle 
nter diesem Punkt kann 


man Befehle wie zum Bei- 
spiel Validate, Scratch, Rena- 
me etc. der Floppy übermit- 
teln. Mit dem Dollarzeichen 
kann man das Inhaltsver- 
zeichnis auflisten. 


Editor-Programm 


Mit dem Editor kann man 
Anzeigen oder Briefe, die 
man in Mailboxen schreiben 


238 PRINT" £SSPACE}I#tSSPACE>IN THE YEAR 198 498 : 


will, erstellen. Der Text wird 
nach dem Erstellen sofort in 
den Terminal-Speicher ge- 
schrieben, so daß er nicht 
erst auf Diskette gespeichert 
zu werden braucht, bevor 
man das Terminal-Pro- 
gramm lädt. Der Speicher- 
platz für Variablen ist deswe- 
gennursogroß, daß der Edi- 
tor maximal 100 Zeilen auf- 
nehmen kann. 

Wenn man den Menü- 
punkt l anwählt, wırd man zu- 
erst gefragt, ob der Termi- 
nal-Speicher gelöscht wer- 
den soll. Antwortet man nit 
»]a«, so kann man einen neu- 
en Text schreiben. Anson- 
sten wird der Inhalt des 
Terminal-Speichers in den 
Editor übertragen. Hier 
kann man nun seinen Text 
eingeben und mit den Cur- 
sor-Iasten frei editieren. 
Man muß allerdings in jeder 
Zeile, die übernommen wer- 
den soll, RETURN drücken. 
Wenn der Cursor am Änfang 
einer Zeile steht, kann man 
vor dieser Zelle mit CTRL-I 
(Insert) eine Zeile einfügen 
und mit CTRL-D (Delete) 
kann man die Zeile löschen. 
Wenn die maximale Anzahl 
von 100 Zeilen erreicht ist, 
wechselt die Rahmenfarbe 
in Rot und es wird keine wel- 
tere Zeile mehr übernom- 
men. 

Die --Taste führt ins Menü 
zurück, nachdem der Text in 
den Terminal-Speicher ge- 
schrieben wurde. 

Die anderen Menüpunkte 


entsprechen denen des 
Terminal-Programms. 
(Peter Falk/rg) 


St7SPACE)I*" 


248 PRINT" (SSPACE}# 29SPACE>I*" 


“ 258 PRINT" {SSPACEIMHRMNMKHEHEHHEEEHEEEEEEH ER 


KRERRERKEN" 


<825> 
<035> 


x2357> 


268 PRINT" {2DOWN,„SSPACE>(1) — TERMINALFROG 


18 REM WRITTEN BY FETER FALK RAMM{DOWN>" 


20 


278 PRINT" {8SPACE}? (2) — EDITOR {2DOWN}" 
SD POKE 849,8:REM SEKUNDAER-ADRESSE 288 PRINT" <8SPACE}(B) — PROGRAMM BEENDEN" 


<ao5> 
<B895> 
<122> 


408 POKE 841,27:POKE 842,52:POKE 845,84:POK 298 GET Q#: IF Qs<>"B"AND Ds<>"L1"AND Qs<>"2 


E 844,0:POKE 845,8:REM DRUCKER-PARAMETE "THEN 298 
R 388 IF Q$="D"THEN END 
38 


88 CLR :REM AUF 15459 340 : 


9B POKE 838,6:FOKE 859,15:REM FARBEN 3580 REM * PEEK+POKE FUER UEBERL. RAM * 
100 POKE 53288,FEEK (8538) :POKE 53281 ,PEEK (8 368 DATA 165,28,72,165,21,72,32,247,185,12 


39) 0,165,1,41,252,133,1,160,0,177,2@ 


: 318 PRINT" {Z2DOWN, 14SPACE}FLDADING..." 
&B POKE 55,77:POKE 56,60:REM SPEICHER- 3528 IF @$="1"THEN LOAD"TERMINAL" ,8 
78 FOKE 643,79: POKE 644,6B0:REM GRENZE 3380 IF Qs="2"THEN LOAD"EDITOR",8 


<1356> 
<122> 
<B52> 
<166> 
<a28> 
<145> 
<192> 


<139> 


118 6%X=1900*0.235:POKE 828,6%:REM GEBUEHREN- 378 DATA 188,1685,1,9,5,155,1,88,104,155,21 


EINHEIT 


‚104,133,208,76,162,179,32,253,174 


<169> 


128 PRINT" {BLACK,CLR,DOWN?";CHR$ (14) 5; CHR#F ( 388 DATA 32,138,173,532,247,185,32,255,174, 


8 32,158,183,120,169,52,135,1,138,16® 
130 GOSUB 358: G60SUB #BB:POKE 650,128 398 DATA 8,145,28,169,55,133,1,98,96 
148 POKE 832,88:REM PUFFERANFANG 4088 FOR 1=598 TOD 765:READ A:POKE I,A:NEXT 
150 POKE 833,60:REM BEI 15440 418 POKE 785,186:POKE 786,2 


168 PRINT" {CLR ,2DOWN ,SSPACE IRRE 420 : 
EEE" 430 REM * LOAD * 


x855> 
<271> 
<B65> 
<117> 
<225> 
<178> 


178 PRINT" (SSPACEI* (ZISPACEI*" 440 DATA 160,0,169,8,32,180,255,169,98,32, 


188 PRINT" (SSPACEI#=XSSPACEIS URPER- TE 


150,255,173,64,3,133,174,173,65 


<166> 


R HI2SPACE?64 {3SPACE>I#" 458 DATA 3,15335,175,32,19,258,145,174,258,1 


198 PRINT" {SSPATE}# {3SPACEIYYYYYYYYYYYYYYY 


74 ,2088,2,238,175,169,2808,197,175 


<226> 


VYYVVVV7LSSPACEI«" 468 DATA 288,8,169,8,133,174,169,224,133,1 


208 PRINT" (SSPACE}%# 29SPACE}#*" 


75,165,175,240,4,36,144,98,223 


<129> 


21B PRINT" (SSPACE?*#{4SPACEIHRITTEN BY PETE 478 DATA 165,174,141,64,3,165,175,141,65,3 


R EALK{4SPACE}I%*" ‚32,171,255,96,8 


228 PRINT" (SSPACE}Y# {Z2ISPACEI*" 


Ausgabe 7/Juli 1985 


488 FOR I=848 TO 917:READ ArFOKE I,„A:NEXT 


<211> 
<1397 


508 
518 


528 


5359 


540 


558 


568 


57» 
580 


598 : 


&08 
618 
628 
658 
640 


658 
668 
678 
688 
698 


788. 


718 
7208 
738 


REM * DIRECTORY * 

DATA 169,36,133,251,169,251,133,187,16 
9,0,133,188,169,1,133,183,169,8 

DATA 133,186,169,96,133,185,32,213,243 
‚165,186,32,188,255,165,185,32,15@ 
DATA 255,169,8,133,144,160,3,132,251,3 
2,165,255,133,252,164,144,208,47 

DATA 32,165,255,164,144,208,40,164,251 
‚136,208,233,166,252,32,205,189 

DATA 169,32,32,210,255,32,165,255,166, 
144,288,18,170,248,6,32,210,255 

DATA 76,226,3,169,13,32,218,255,16®,2, 
208,198,32,66,246,96 

FOR I=918 TO 1822:READ A:POKE I,A:NEXT 
RETURN 


REM * F-TASTEN LADEN * 

OPEN 1,8,2,"F-TASTEN,S,R" 

OPEN 2,8,15 

INPUT#2,F 

IF F=8 THEN PRINT" (3DOWN,2SPACE>DIE EU 
NKTIONSTASTEN WERDEN GELADEN. " 

PRINT" <3DOWN, 12SPACE}BITTE WARTEN..." 
IF F=® THEN 788 

FOR S=54008 TO 54559 

SYS 735,5,13:NEXT 

GOTO 728 

FOR 5=54008 TO 54559 

GET#1,A$:SYS 735,5,ASC (A$) :NEXT 
CLOSE 1:CLOSE 2 

RETURN 


Listing »Lader«. Bitte beachten Sie 
die Eingabehinweise auf Seite 77. 
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18 REM WRITTEN BY PETER FALK <255> 1828 FOR z=1 TO E <166> 2880 RETURN <158> 
28 REM 828=PREIS EINER EINHEIT <126> 1838 GET#H1,BF(Z): IF B#$(Z)="" THEN BF(Z)=CH 2098 : <108> 
38 POKE 829,32:REM 7 DATENBITS <135> R$(O) <186> 2100 REM * UMFORMEN/SENDEN * <116> 
48 POKE 838,6:REM 308 BAUD <052> 1848 IF ST=8 THEN NEXT Z <171> 2118 E=B:D=ASC(B$): IF D>64 AND D<X91 THEN E 
5® POKE 831,8:REM 1 STOPBIT <224> 1058 F=ST:IF Z>E THEN Z=E <282> =32 <081> 
68 REM 832,80:REM (LO) PUFFERANFANG <121> 1058 FOR W=1 TO 1008: NEXT <204 > 2120 IF D=28 THEN D=8 <008> 
70 REM 833,60:REM (HI) BEI 15448 <211> 1870 SU=9: GET#2,E$ <129> 2138 D=D+E <131> 
80 REM BS4=GEGENSTELLE DUPLEX <188> 10888 FOR X=1 TO Z <246> 2148 PRINT#2,CHR$(D)s:IF NOT DP THEN POKE 
98 REM 835=GEBUEHREN JA/NEIN <B63> 1098 PRINT#2,B$(X); <134> 646,8:PRINT B$; <168> 
iBD REM 834=GEBUEHREN-ZONE <207> i1B8 SU=SU+ASC (B$(X)) <B34> 2158 RETURN <252> 
118 REM 837=GEBUEHREN-TARIF <820> 111@ NEXT X <052> 2160 : <178> 
120 REM BS8=RAHMEN-FARBE <847> 1128 IF PEEK(&69)<>PEEK(678) THEN 1128 <B38> 2178 REM * UMFORMEN/AUSGEBEN * <871> 
130 REM 839=HINTERGRUND-FARBE <281> 11308 POKE 668,PEEK (667) <159> 2180 E=®:D=ASC(C#):IF D>64 AND D<91 THEN E 
140 REM 848-845=DRUCKER-PARAMETER <168> 1148 GET Q@$:IF PEEK(S5H7)=PEEK (5658) AND Qs< =32 <152> 
15@ : <208> >"*" THEN 1148 <610> 2198 IF D>96 AND D<123 THEN E=-32 <111> 
160 REM ** MENUE *%* <081> 1158 IF Q$="+" THEN 1368 <072> 2288 IF D=B THEN D=20 <088> 
178 PRINT: PRINT" £CLR,BLACK ,2DOWN , 7SPACEIFF 1168 GET#2,LOs: IF LOs="" THEN LO$=CHR$(B) <B71> 2218 D-D+E <211> 
PPP FRFPPP PPPP" <807> 1178 GET Q$: IF PEEK(667)=PEEK (668) AND Q$s< 2228 POKE 645,8:POKE 199,8:PRINT CHR$(D)I; <129> 
188 PRINT" {7SPACE,RVSON,2SPACE}#* TERHINAL - >"e" THEN 1178 <9843> 2238 RETURN <07&6> 
-HENUE #% 2SPACE}" <206> 11882 IF Q$="e" THEN 1368 <192> 2240 : <092> 
198 PRINT" (7SPACEIYYYYYYYYYYYYYYYYYYYYYYYY 1198 GET#2,HI#: IF HI$="" THEN HIS=CHR$ (DB) <B871> 2258 REM * TASTATUR-AUSWERTUNG * <111> 
{2DOWN?" <229> 1288 SE=ASC (LO$) +256*ASC (HIF) <147> 2268 E=ASC (B$) <B8D> 
288 PRINT" (7SPACE>?(1) — KOMMUNIZIEREN"; A$; 1218 IF SE<>SU THEN 1308 <088> 2278 IF E=174 AND SG<655536 THEN SP=-1:PDKE 
"<DOWN}" <241> 1228 BY=BY+Z <188> 535280,2:60T0 578 <115> 
218 PRINT" <7SPACE?(2) - DATEN SPEICHERN {DO 12358 PRINT" 0X. (7SPACE}"3; INT(BY/254) +13 "{L 2280 IF E=182 THEN SG=15440:GDSUB 3978:G60T 
WN}" <253> EFT}. BLOCK" <171> D 570 <247> 
228 PRINT" (7SPACE}(S) — DATEN LADEN{DOWN}" <293> 1248 IF F<>B THEN 1368 <178> 2298 IF E=177 THEN SP=8:POKE 53288,PEEK (83 
238 PRINT" <7SPACE>(4) — DATEN AUSGEBEN {DOW 1258 PRINT#2,CHR$ (2); <897> 8):60T0 578 <091> 
N}" <188> 1268. GET Q$: IF PEEK(&AAT)=PEEK (568) AND Qs< 23008 IF E=176 AND SG>15448 THEN GOSUB 19758 
248 PRINT" (7SPACE?(5) - EUNKTIONSTASTEN {DO >J"e" THEN 1268 <133> :G0TO 578 <124> 
WN>" <161> 12708 IF Q$="+*" THEN 1368 <192> 2318 IF E=165 THEN GOSUB 3520:G60T0 5708 <138> 
250 PRINT" 7SPACE}(6) - PARAMETER {DOWN?" <189> 1288 G60TO 19828 <981> 2328 IF E=191 THEN GOSUB 4058:G60T0 570 <146> 
268 PRINT" £7SPACE>(7) — SEBUEHREN{DOWN}" <189> 1298 : <073> 2338 IF E=175 THEN 748 <132> 
278 PRINT" <7SPACEI(8) — DISKBEFEHLE {DOWN}" <973> 1308 REM ERROR <859> 2345 ir E=95 THEN POKE 53289,rPEEK (838) :505 
288 PRINT" (7SPACE}(9) - EDITOR LADEN" <888> 1318 PRINT#2,CHR$(1)5:PRINT" ERROR !" <223> UB 3970: G0SUB 3528:CLOSE 2:WAIT 198,1 
270 GET @$: IF Qs="" THEN 290 <171> 1328 GET O$: IF PEEK(667)=PEEK (668) AND Qs< :GOTO 168 <155> 
308 IF Q$="1" AND A$=" (EDRTSETZUNG)" THEN >"e+" THEN 1328 <191> 2358 IF E=222 THEN POKE 53288,PEEK (838) :60 
As="":60T0 480 <251> 1338 FOR W=1 TO 1888: NEXT <819> SUB 3978: [LOSE 2:A$=" (EORTSETZUNG) ":6 
sıa ON VAL(G#) GOTO 35650,2590,26108,2770,411 15348 IF Q$<>"«" THEN 19870 <193> OTO 168 <066> 
0,50702,5850,4810,540 <oaa> 1350 : <133> 2360 IF E=188 THEN GOSUB 4990:60T0 570 <197> 
328 IF Q$="®" THEN END <142> 1368 IF Q$="e" THEN PRINT" DOWNIABBRUCH !£ 2378 GOTO 578 <112> 
338 GOTO 278 <111> DOWN}" <232> 2380 : <143> 
>48 LOAD"EDITOR" ‚8 <887> 1378 PRINT#2,CHR$ (3); <219> 23598 REM *** DATEN SPEICHERN *%** <247> 
s5Q : <155> 1388 PRINT“ {DDWN>ENDE DER UEBERTRAGUNG."  <B87> 2488 PRINT" {CLR}Y" <217> 
360 REM *#* KOMMUNIZIEREN #**%* <225> 1398 CLOSE 1:CLOSE 15:CLOSE 2 <144> 2418 GOSUB 4839 <199> 
378 INPUT" {CLR,2DOWN,2SPACE})GEGENSTELLE {SP 1488 PRINT" (2DOWN,11SPACLE>IASTE DRUECKEN ! 2428 IF SG=15448 THEN 148 <144> 
ACE „RVSON?H{RVOFFYALB- /<SPACE,RVSON?M " <239> 2438 DN$="" <951> 
{RVOFF>OLLDUPLEX (SSPACE>IVLSLEFTI"5Q#  <O71> 1418 WAIT 198,255: POKE 198,8 <882> 2448 INPUT" (2DOWN)DATEINAME ";DN$ <117> 
382 IF Q$="V" THEN POKE 834,1 <003> 1428 GOTO 488 <182> 2450 IF DN$="" THEN 168 <B16> 
398 IF Q#="H" THEN POKE 834,8 <254> 1438 : <213> 2468 OPEN 1,98,2,DN$+",S,W" <a097> 
408 PRINT" {ZDOWN ,2SPACE >GEBUEHREN- BERECHNU 1448 REM * EMPFANGEN * <B25> 2470 GDSUB 4938 <812> 
NG {J/N) ? DOWN?" <155> 1458 OPEN 1,8,2,DN$+",P,W" <D16> 2488 PRINT#1 ,CHR$ (USR (15448) ); <B887> 
418 GET Q$: IF Q$<>"J" AND Q$<>"N" THEN 418 <9S1> 1468 GOSUB 4938 <922> 2498 IF ST<>® THEN 2578 <254> 
428 POKE 855,8 <056> 1478 IF VAL(B$)<>@ THEN 1888 <2B6> 2508 CMD 1:A=15441 <199> 
450 IF Q#="J" THEN POKE 835,1:60SUB 5598 <192> 1488 POKE 668,PEEK(667):POKE 198,8 <185> 2518 E=SG: IF E>S53247 THEN E=53247 <203> 
4408 PRINT" {2ZDOWN,11SPACEIZUM STARTEN TASTE 1498 PRINT#2,CHRS$ (2); <882> 2528 FOR Sz=A TO E <235> 
im <247> 1508 GET#2,E$:GET Q$ <188> 2538 PRINT CHRS$(USR (SZ); <140> 
458 GET @$: IF Qs="" THEN 458 <073> 1518 FOR W=1 TO 1B8B:NEXT <151> 2548 NEXT <119> 
448 IF Q$="e" THEN 160 <096> 1520 I ER" : det90 <127> 2558 IF E<SG THEN A=57344:E=56:G60T0 2528 <B2B> 
478 TI$="BDADaR" <174> 1538 Mo? ’ ag > <196> 2568 PRINT#1,""; <126> 
4808 BAUD=PEEK (838) : DB=PEEK (829) :SB=PEEK (83 1548 PRINT" {DOWN?>BEGINN DER VEBERTRAGUNG. € 2578 CLOSE 1:CLOSE 15 <837> 
1) <181> DOWN?" <889> 2588 IF VAL(B$)<>® THEN WAIT 198,255 <092> 
498 OPEN 2,2,8,CHR$ (BAUD+DB+SB) +CHR$ (8) : GE 1558 FOR W=1 TO 188:NEXT <192> 2598 GOTO 168 «872> 
T#2,08% <088> 1568 GET#2,E$:POKE 668,PEEK (667) :BY=@ <183> 2600 : <108> 
S@D PRINT" <CLRY"; <168> 1578 SU=B: Z=1 <B841> 2610 REM #*** DATEN LADEN ##* <151> 
512 GOSUB 4998 <898> 1588 GET @O$: IF PEEK(667)=PEEK (668) AND Qs< 2628 DN$="" <242> 
528 GOSUB 4038 <894> >"e" THEN 1588 <294 > 2638 INPUT" (CLR,SDOWN>DATEINAME "zDN$ <216> 
S350 DP=-PEEK (854) <185> 15998 IF Q$="e" THEN 1888 <881> 2648 IF DN$="" THEN 168 <287> 
5408 GB=-PEEK (835) <183> 15888 AT=TI <B42> 26458 SG=15448 <174> 
550 GET#2,Q@$:PRINT <146> 161® IF TI-AT>S® THEN 1468 <964> 2668 OPEN 1,8,2,DN$+",S,R" <205> 
568 : <188> 1628 IF PEEK(667)=PEEK (668) THEN 1618 <115> 2678 GOSUB 4938 <213> 
578 GOSUB 4700 <148> 1638 GET#H2,B$S(Z):IF BE(Z)="" THEN B$(ZI=CH 2688 IF VAL(B$)<>B THEN 2728 <1435> 
588 GET B$: IF B$="" THEN 658 <176> R$(D) <921> 2690 POKE 144,8:POKE 832,80:POKE 833,68 <827> 
59 GOSUB 4760 <174> 1648 SU=SU+ASC (BES (Z)): Z=Z+1 <189> 2708 SYS 848:REM LOAD-ROUTINE <B28> 
6BB IF ASC(B$) >132 AND ASC(B$)<141 THEN GO 1658 IF 2<258 THEN 1698 <B29> 2718 SG=PEEK (832) +PEEK (833) «256-1 <@28> 
SUB 4480:60T0 578 <129> 1668 HI=INT (SU/256) :LO=SU-2564%*HI <113> 2728 CLDSE 1:CLOSE 15 <187> 
&1@ IF PEEK(653)=2 THEN 2258 <244> 15878 PRINT#2,CHR$ (LO) 5CHR$ (HI); <984> 2758 IF SG=-1 THEN PRINT" (2DOWN>ARCHTUNG, £ 
620 GOSUB 2180 <190> 1688 GET Q$: IF PEEK(667)=PEEK (668) AND Qs< UFFER VOLL !!! (ZDOWN}":SG=65555 <o91> 
638 : <178> >"«" THEN 1688 <049> 2748 GOSUB 3978:POKE 198,8:WAIT 198,255 <835> 
648 GOSUB 4700 <218> 1698 IF Q$="+" THEN 1890 <181> 2758 GOTO 168 <Z32> 
658 IF PEEK(667)=PEEK (668) THEN 588 <122> 1708 GET#2,E$ <0553> 2768 : <012> 
66D GOSUB 4768 (244 > 1718 IF E$<>CHRS(ZIAND E$<>CHRS(S)THEN 187 2778 REM *%** DATEN AUSGEBEN #** <029> 
678 GET#2,C$: IF C$="" THEN C$=CHR$ (BD) <083> 0 <148> 2788 PRINT" {CLR}Y" <BB&4> 
&B8 GOSUB 2178 <8a01> 1728 PRINT#2,CHR$ (4); <9859> 2798 GOSUB 4958 <B68> 
498 IF NOT SP THEN 578 <205> 1738 FOR X=1 T0 zZ <138> 2808 IF SG=15448 THEN 168 <913> 
788 POKE SG,D:S6=SG+1:IF SG=53248 THEN SG= 1748 PRINT#1,B$(X); <817> 2818 PRINT" <{DOWN?’£E1’ = BILDSCHIRM" <2135> 
57344 <1907> 1758 NEXT X <182> 2828 PRINT" E53‘ = DRUCKER" <Da9> 
718 IF 56=65536 THEN POKE 53280,PEEK (838) : 1768 GET#2,0# <125> 2850 PRINT" "ES" = HARDCOPY DOWN?" <105> 
SP=9: SG=65535 <023> 1778 BY=BY+Z <220> 2840 WAIT 198,255 <@51> 
728 G0TO 570 <247> 1788 PRINT" OX. (7SPACE)Y"z INT(BY/254) +13" <L 2858 D-® <085> 
738 : <022> EFT}. BLOCK“ <211> 2868 FOR SZ=15448 TO SG <085> 
740 REM * PROGRAMM-UEBERTRAGUNG * <230> 1798 IF E$=CHR$(2) THEN 1578 <184> 2878 IF PEEK(198)<>0 THEN 27808 <145> 
750 G0SUB 3978:CLOSE 2:CLR <050> 1988 IF Q$="«" THEN PRINT" {DOWN}ABRRUCH !£ 2888 C#=CHR$ (USR (SZ) ) <u49> 
760 BAUD=PEEK (858) <118> DOWN?" <162> 2898 PRINT C$; <144> 
778 OPEN 2,2,2,CHR$ (BAUD) +CHR$ (8) :GET#2,Q$ <179> 1818 PRINT" <DOWN}ENDE DER WEBERTRAGUNG." <183> 2788 IF D THEN PRINT#1,C#; <108> 
788 INPUT" (CLR ,SDOWN} PROGRAMM- NAME: "; DN$: I 1828 CLOSE 1:CLOSE 1S5:CLOSE 2 <B64 > 2710 IF SZz=55247 THEN SZ=57345 <1aD> 
F DN$="" THEN PRINT:CLOSE 2:60T0 488 <152> 1838 PRINT" (2DOWN,11SPACEITASTE DRUECKEN ! 2728 NEXT 82 <162> 
798 DIM B$ (258) <245> “ <159> 29358 CLOSE 1:POKE 535280,PEEK (858) <oo5> 
808 OPEN 1,8,15,"M-W"+CHR$ (7) +CHR$ (28) +CHR 1848 WAIT 198,255:POKE 198,8 <aB2> 2730 BET BEL IF Ben” "TEEN 2748 372 
$(1)+CHR$ (15) :CLOSE 1 <885> 1850 GOTO 488 <192> ZI IT RR TEST TREN EB ae 
818 PRINT" (2DOWN,RVSONFS{RVOFF)IENDEN / {SPA 1868 : <133> 2768 60TU 160 s1827 
CE „RVSON}E{RVOFF>IMPFANGEN 7" <B48> 1878 REM ERROR <118> 2978 : <225> 
920 GET Os: IF Qs<>"S" AND Q$<>"E" THEN 820 <212> 1888 PRINT" ERROR !" <103> BEE er EN 
840 : <133> 198® POKE &68,PEEK (667) <144> Sun 7 RE tz HEN CINE 1 EINE OSZUR EEE 
8S® REM * SENDEN * <245> 1918 GOTO 1578 <211> ee Sa? 
868 PRINT" {2DOWN>LAENGE EINER UWEBERTRAGUNG 1920 : <193> 3@1®8 IF B$="(FS>" AND D=B THEN E=PEEK (848) 
S-EINHEIT" <B14> 1938 REM * DATEN SENDEN + <157> :POKE 53280,2 <141> 
878 INPUT"IN BYTES (MAX.256) (SSPACEISB{4LE 1948 FOR SZ=-15448 TO SG <183> 3028 IF B$="<FS}"AND D=® THEN OPEN 1,4,E:F 
FTY";E <846> 1958 GET Os: IF Q$="e" THEN PRINT:RETURN <082> OR E=841 TOD 845: PRINT#1 ,CHR$S(PEEK (E)) 
888 IF E<1 DR E>256 THEN 858 <175> 1968 IF Q$=" " THEN GET E$:IF Es<>" " THEN ;:NEXT:D=1 <236> 
890 OPEN 1,8,2,DN#+",P,R" <217> 1968 <163> 3503580 IF B#$="{F1}" THEN D=®:CLOSE 1:POKE 53 
908 GOSUB 4958 <228> 1978 FOR W=1 TO 24:NEXT <058> 289 ,PEEK (838) <218> 
918 IF VAL(BS)I<>® THEN 1368 <157> 1988 GET#2,C$: IF C$=CHR$ (24) THEN PRINT:RE 3848 IF B$="(F5}" THEN GOSUB 51350 <B86> 
920 POKE 668,PEEK(667):PODKE 198,8 <135> TURN <176> 3058 GOTO 2898 <280> 
938 PRINT#2,CHR$ (2); <032> 1998 IF C$<>CHRE(19) THEN 2818 <815> 3068 : <a57> 
948 GET#2,E$:GET Q$ <138> 2008 GET#2,0$: IF Q$#<>CHR#(17) AND PEEK (2083 3078 REM ** PARAMETER #* <225> 
958 FOR W=1 TOD 1D8: NEXT <181> )=64 THEN 2808 <184> 30882 PRINT" {CLR,2DOWN}" <166> 
96B IF E$="" AND Q$<>"e*" THEN 9538 <827> 2818 SYS 42595:REM CIA’S SETZEN <115> 3090 : <a88> 
978 IF Q$="+" THEN 136® <147> 2028 BE=CHRS(USR(SZYI):GETH2,CH <147> 
980 PRINT" (DOWN?BEGINN DER VEBERTRAGUNG. {D 2038 IF DP THEN POKE 646,8: PRINT B$; <194> 
OWN)" <029> 2048 IF SZ=53247 THEN S7=57343 <250> PR . . . 
998 FOR W=1 TO 258: NEXT <147> 2050 GOSUB 2108 <098> Listing »Terminal«. Bitte beachten Sie 
1000 POKE 588, PEEK (667) :BY=® <193> 2868 IF D=13 THEN FOR W=1 TO 188:NEXT <076> . . 
1018 : s <847> 2078 NEXT SZ <077> bei der Eingabe den Checksummer 64. 
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C 64 Wettbewerb: Terminalprogramm 


S100 
3118 
3128 
3138 
3148 
5158 
5168 
3170 
3188 
3190 
3228 
5210 
5220 
3250 
3240 
5258 
3268 
3278 
3288 
3290 
3500 
3310 
5328 
3339 
3348 
3358 
33558 
33570 
3588 
3390 
35400 


5418 
3420 
3438 
3448 
3450 


3468 


5470 
5488 
54978 
3590 
3518 
3528 
35358 
Ss54B 
3558 


3568 
3570 


3598 


35978 
5608 


56i® 
36208 


3638 
5640 
3550 


3678 
3680 
36970 
3708 
3718 
3728 
3738 
3748 
575® 
5768 
3770 
3788 
37978 
SenB 
‚ SI1@ 
3828 
3850 
5849 
3350 


5878 


S88B 
5890 


5708 
3918 
39728 
3938 
3948 
359750 
3968 
3978 
39798 


4008 
4910 
4028 
40930 
4949 


49650 
4078 
4990 
40998 
4108 
4110 
41208 


4138 
4148 
4150 


REM BAUDRATE 

IF PEEK(85@)=3 THEN BAUD=11® 
IF PEEK(838)=5 THEN BAUD=158 
IF PEEK(838)=4 THEN BAUD=398 
IF PEEK(830)=7 THEN BAUD=408B 
PRINT SPC(22) BAUD; " {UP}" 
INPUT"118,150,300,60® BAUD ";BAUD 
IF BAUD=11® THEN POKE 830,3 
IF BAUD=158 THEN POKE 838,5 
IF BAUD=30B THEN FOKE 838,& 
IF BAUD=40® THEN POKE 830,7 


REM DATENBITS 

IF PEEK (829)=32 THEN DB=7 

IF PEEK (829)=® THEN DB=8 

PRINT" £5DOWN>"3SPC (28) DBz"<UP}" 
INPUT"7 ODER 8 DATENBITS ";DB 

IF DB=7 THEN POKE 829,32 

IF DB=8 THEN POKE 829,8 


REM STOPBITS ‘ 

IF PEEK (831)=B THEN SB=1 

IF PEEK (831)=128 THEN SB=2 
PRINT" (5SDOWN}";SPC(19) SB; "{UP}" 
INPUT"1 ODER 2 STOPBITS ";SB 


IF SB=1 THEN POKE 931,8 

IF SB=2 THEN POKE 831,128 

G0TO 168 

REM ** GEBUEHREN BERECHNEN *%* 

PRINT" (DOWN, 2SPACE>®. ZONE: NAHGESPRA 

ECH" 

PRINT" DOWN,2SPACE>i. ZONE: UNTER 5® 

PRINT" {DOWN,2SPACE)2. ZONE: 5® - 108 
[23 

PRINT" DOWN,2SPACEIS. ZONE: UEBER 190 


20=4: INPUT" {DOWN,2SPACE}ZONE 2, 1, 2 
ODER 3 "s:Z0 

IF Z0<>® AND Z0<>1 AND Z0<>2 AND Z0<> 
3 THEN 3448 

INPUT" {DOWN , 2SPACE „RVSON}N{RVOFF >ORMA 
L- /SPACE „RVSON}B{RVOFF}ILLIG-IARIF 
":Q$ 

IF O$<>"N" AND Q$<>"B" THEN 3468 

POKE 836,20 

FOKE 837,ASC (@$) 

RETURN 

8 

IF NOT GB THEN RETURN 

ZO=PEEK (836) 

QO$=CHR$ (PEEK (837) ) 
ZEIT=VAL(LEFT$(TI$,2) )#3609+VAL (MIDS ( 
T1$,3,2))*60+VAL (RIGHT$(TI$,2)) 

IF Q$="B" THEN 3620 

IF Z0=® THEN BETRAG=INT (ZEIT/4809+1)*P 
EEK (828) /10B 

IF Z0=1 THEN BETRAB=INT (ZEIT/45+1)*PE 


EK (828) /198 

IF 20=2 THEN BETRAG=INT (ZEIT/28+1)*PE 
EK (828) /108 . 

IF Z0=5 THEN BETRAG=INT (ZEIT/12+1)*PE 
EK (828) /100 

G0T0 3458 

IF ZO=® THEN BETRAG=INT (ZEIT/728+1)»*P 
EEK (826) /10B 

IF zZ0=1 THEN BETRAG=INT (ZEIT/87.5+1)* 
PEEK (828) /108 

IF Z0O=2 OR Z0O=3 THEN BETRAG=INT (ZEIT/ 
38.&6+1) *PEEK (828) /100 

PRINT 

PRINT" ZEIT {2SPACE}=";TI$ 

PRINT" BETRAG="; BETRAG; " Dn“ 


PRINT 

IF B$<>"«" THEN 3858 

PRINT" GEBUEHREN SPEICHERN (J/N)?" 
GET Q#+ 

IF Ds<>"J" AND Qs<>"N" THEN 37108 


IF Q$="N" THEN 3838 
OPEN 1,8,2, "GEBUEHREN,S,R" 

INPUT#1 ,GESB 

CLOSE 1 

GESB=GESB+BETRAG 

DPEN 1,8,2,"@: GEBUEHREN,S,W" 
PRINT#1,GESB 

CLOSE 1 

PRINT" {DOWN} SESAMTBETRAG=" ; GESB; " IN" 
WAIT 198,255 

POKE 198, 1:RETURN 

REM ##* GEBUEHREN ANSEHEN #** 

PRINT" {CLR,2DOWN}" 

INPUT" SEBUEHREN LOESCHEN {3SPACE}N {3LE 
FT}";Q$ 

IF Q$<>"J" AND Q$<>"N" THEN 3878 

IF Q$="J" THEN OPEN 1,8,2,"@: GEBUEHRE 
N,S,W":PRINT#1,B:CLOSE 1 

DPEN 1,8,2,"GEBUEHREN,S,R" 
INPUT#1,GESB 

CLOSE 1 

PRINT" {2DOWN?SESAMTBETRAG="; GESB; " N“ 
WAIT 198,255 

GOTO 168 

REM #*%* LO/HI-BERECHNUNG #%* 

POKE 832,56-INT (586/256) #256 

POKE 833, INT (S6/256) 

GUOSUB 4038 

RETURN 


’ 

REM ##* SPEICHERGRENZE ##* 

SG=PEEK (832) +PEEK (835) #256 

IF SG<55248 THEN BY=SG6-15448 

IF S6>57345 THEN BY=56-154498-4995 
PRINT:PRINT"AYTES BELEGT: ";BY 
PRINT"ZAYTES FREI (2SPACE}: "; 46Q20-BY 
RETURN 

& 

REM #*#* FUNKTIONSTASTEN ##* 


PRINT" (CLR ,„2DOWN, 12SPACE>EUNETTIONSTAS 


ZEN" 

PRINT" (12SPACEIVYVYYYVYYYYYVYYYY{DOWN}" 
FOR FT=® TO 7 

PRINT" E"3FT+15 "2 (2SPACE}"SCHRS (34) 5 
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<255> 
<B887> 
<19535> 
CLELT> 
<125> 
<882> 
2457 
<145> 
<161> 
<169> 
<185> 
<2088> 
<205> 
<024> 
<259> 
<208> 
<BB9> 
<B&2> 
<B28> 
<D532> 
<247> 
<D55> 
<171> 
<o56> 
<aS5> 
<992> 
<178> 
<287> 
<125> 
<161> 


<128> 
<B45> 
<184> 
<884> 
<BBB> 


<1539> 


<094> 
<B19> 
<178> 
<168> 
<071> 
<255> 
<198> 
<250> 
<215> 


<B00> 
<159> 


<B4B> 


<BB0> 
<085> 


<817> 
<127> 


<B88> 
<154> 


<226> 
<2353> 
<@44> 
<179> 
<a07> 
<229> 
<1B8> 
<162> 
<B20> 
<B89> 
<862> 
<182> 
<145> 
<027> 
<229> 
<242> 
<1853> 
<125> 
<246> 
<898> 
<075> 
<231> 
<181> 


<9497> 
<188> 


<165> 
<225> 
<087> 
<B4a8> 
<007> 
<111> 
<157> 
<195> 
<B49> 
<115> 
<240> 
<805> 
<871> 
<255> 
<034> 
<119> 
<24&> 
<125> 
<111> 
<190> 
<151> 
<078> 
<229> 


<2982> 
<217> 
<828> 
<871> 


4160 
4170 
4180 
4198 
4288 
4210 
4220 
4230 
4240 


4250 
4268 
4270 
4288 
4290 
4300 
4518 
4320 
43538 
4340 
4358 
43568 
4370 
4588 
4398 


4408 
4410 
4420 
4450 
4440 
4450 
4460 
4470 
4488 
4498 
4508 
4518 
4528 
4530 
4540 
45508 
4568 
4578 
4588 
4598 
4688 
4610 
4620 
4630 
4648 
4658 
4668 
4678 
4680 
4690 
4708 
4718 
4720 


4730 
4740 
4750 
4768 
4778 
4788 


47978 
4808 
48108 
4820 


4838 


4840 
4850 
4860 


4870 
4889 
4890 


4918 
4920 
49508 
4940 
4950 
4960 


4970 
4988 
4990 
Sp2R 
5018 
5020 
5958 
5940 
5958 
5D60 
50708 
5988 
50970 
5108 
5118 
5120 
5138 
5148 
5158 


5168 
5170 


5190 
5200 
5218 
5228 
5250 
5240 
5258 


S1=-54000+70#FT 

E=USR (SZ): IF E=13 THEN 4218 

PRINT CHR$(E); 

S7=-SZ+1 

GOTD 4178 

PRINT 

NEXT FT 

PRINT" {DOWN, 12SPACE>AENDERN (J/N)?" 
GET Q$: IF Q$<>"J" AND Q$<>"N" THEN 42 
48 

IF Q$="N" THEN 168 
PRINT" {HOME „4DOWN}" 

FOR FT=8 TO 7 

POKE 631,29:POKE 198,1 

INPUT" {&RIGHT}";Q$ 

IF Q$="" THEN 4370 
Q$=LEFT$(QOF,69) +CHR$ (15) 
S1=54908+708+FT 

FOR SF=1 TD LEN (Q#) 

syS 735,SZ,ASC(MID$(Qs#,SP,1)) 
S7=S7Z+1 

NEXT SP 

NEXT FT 

PRINT" {DOWN, 12SPACE}SPEICHERN (J/N) ?" 
GET Q$: IF Q$<>"J" AND Gs<>"N" THEN 43 
99 

IF @Q$="N" THEN 168 

OPEN 1,8,2,"@:F-TASTEN,S,W" 

FOR S7=54988 TO 54559 
PRINT#1 „CHR$ (USR (52) ); 

NEXT SZ 

ELOSE 1 

GOTO 1688 


. 

REM *#* FUNKTIONSTASTEN SENDEN ## 
D=ASC (B$) 

IF D=-133 THEN FT=® 

IF D=134 THEN FT=2 

IF D=-135 THEN FT=4 

IF D=13&4 THEN FT=6 

IF D=-137 THEN FT=i 

IF D=138 THEN FT=3 

IF D=139 THEN FT=S 

IF D=148 THEN FT=7 
S7Z-548B8+708*-FT 

FOR W=1 TO 38:NEXT 

SYS 52595 
B$=CHRS$ (USR (SZ) ) 

GET#2,0# 

IF DP THEN PRINT B$; 
GOSUB 21090 

SZ=S7+1 

IF B$S<>CHRFE (13) THEN 4598 
POKE 558,PEEK (567) :GET#2,@# 
RETURN 


REM * CURSOR EIN * 
E=PEEK (289) +PEEK (218) #254+PEEK (211) 


IF PEEK(E)CHZEUUHEN PORETE. RERIENS; 


POKE 54272+E,8 

RETURN 

’ 

REM #* CURSOR AUS # 

E=PEEK (289) +PEEK (219) #256+PEEK (211) 
IF PEEK(E)>127 THEN POKE E,FPEEK(E)-12 


8 
RETURN 


REM *%* DISKBEFEHLE #* 
PRINT" {CLR,Z2DOWN} '$° 
N}>" 

PRINT SPC (13) CHR$(534);:POKE 212,8:PR 
INT" {UP>" 

POKE 198,1:POKE 631,29 

INPUT" DBISKBEFEHL ";B#$ 

IF B$="$" THEN PRINT:SYS 918:WAIT 198 
‚255:60T0 168 

OPEN 15,8,15 

PRINT#15,B# 

GOSUB 4958 

CLOSE 15 

WAIT 198,255:G0T0O 168 


= DIRECTORY (2DOW 


REM *# DISKSTATUS ## 
DPEN 15,8,15 
INPUT#15,B$#,C$ 
PRINT" £{2DOWN}DISKSTATUS: 
{DOWN>" 

RETURN 

REM * HELP * 

PRINT 

PRINT" ‘C= 3°:DATEN SPEICHERN" 
PRINT" 'C= E’rSPEICHERN ENDE" 
PRINT" ’£C= A’: DATEN AUSSENDEN" 
PRINT" 'C= L’:PUFFER LOESCHEN" 
PRINT" '£C= 6’: SEBUEHREN" 

PRINT" "C= B’:BYTES FREI" 

PRINT" ’C= P’:PRG-ULEBERTRAGUNG" 
PRINT" "C= «’:0FF-LINE" 

PRINT" ’C= 1’: UNTERBRECHUNG" 
PRINT" 'C= H’:HELP" 

RETURN 

REM * HARDCLOPY * 

D=B:CLOSE 1:E=PEEK(B4B8):0OPEN 1,4,E 
FOR E=841 TO 845: PRINT#1,CHR$ (PEEK (E) 
I); :NEXT 

OPEN 2,3 

PRINT" (HOME}"; 

PRINT#1 

FOR Z=1 TO 25 

FOR SP=1 TO 48 
GET#2,E#:PRINT#H1,E$;3 

NEXT SP 

NEXT Z 

PRINT#1:CLOSE 1:CLOSE 2 

RETURN 


"B$; “ ":C$; „ 


Listing »Terminal« (Schluß) 


<255> 
<148> 
<149> 
<885> 
<295> 
<827> 
<188> 
<888> 


<109> 
<BAA> 
x2352> 
<158> 
<a9&> 
<249> 
<871> 
<972> 
x159> 
<B4&> 
x825> 
<245> 
<B852> 
<B653> 
<147> 


<B19> 
<195> 
<B11> 
<222> 
<B92> 
<152> 
<B88> 
<157> 
<195> 
<821> 
<814> 
<224> 
<x257> 
<258> 
<807> 
<B1S5> 
<BD26> 
<839> 
<@45> 
<164> 
<125> 
<178> 
<249> 
<181> 
<B840> 
<0978> 
<835> 
x144> 
<8852> 
<232> 
<158> 
<B11> 
<aa7> 


<255> 
<114> 
<0356> 
<218> 
<B84> 
<B87> 


<857> 
<986> 
<B212> 
<B41> 


<126> 


<224> 
<146> 
<191> 


<B99> 
<B28> 
<179> 
<148> 
<B61> 
<151> 
<155> 
<155> 
<a78> 
<128> 


<B82> 
<811> 
<195> 
<157> 
<852> 
<1B&6> 
<158> 
<115> 
<141> 
<B14> 
<B43> 
<185> 
<B975> 
<828> 
<215> 
<151> 
<878> 
<a91> 
<929> 


<0354> 
<1908> 
<115> 
<B25> 
<835> 
<115> 
<284> 
<157> 
<9094> 
<108> 
<056> 


1B ELR 

28 DIM ZE$S(198D) 

38 SG=PEEK (832) +PEEK (835) #256 

48 PRINT: PRINT" {BLACK,CLR,DOWN}" 

5® PRINT” {8SPACEIFPPPPRPPPPPRPRPRPRPPPPPPP" 
6B PRINT" {8SPACE ,RVSON,ZSPACE?** EDITOR-NE 


NUE ## (2SPACE>” 


PRINT" {8SPACEIYYYYYYYYYYYYYYYYYYYYYY(SD 


OWN?" 


80 
98 


100 
118 


128 
158 


140 
158 
168 


178 
188 
198 
208 
210 
228 
258 


240 
258 
268 
278 
280 
298 
388 
318 
328 


548 
>58 
568 
378 
388 
398 
408 
418 
420 
438 
448 
458 


468 


498 


PRINT" <7SPACE>(1) 
IEREN {DOWN} " 
PRINT" {7SPACE} (2) 
ya 


- TEXT SCHREIBEN/EDIT 
- JIEXT SPEICHERN {DOWN 


PRINT" (7SPACE}(3) - IEXT LADEN(DOWN}" 
PRINT" <7SPACE)(4) - TEXT AUSGEBEN {DOWN 
7“ 

PRINT" (7SPACE)> (5) 
PRINT" {7SPACE} (6) 
OWN?" 

PRINT" (7SPACE}? (7) -— TERMINAL-PROGRAMM" 
GET Q$: IF Q$="" THEN 158 

ON VAL(Q$) GOTO 210,1930,2140,1650,254 
2,2430,198 

IF Q$="B" THEN GOSUB 2370: END 

G0TO 158 

GOSUB 2370: LOAD"TERMINAL",8 


AISKBEFEHLE {DOWN}" 
PUFFER LOESCHEN {2D 


l 


REM #** TEXT SCHREIBEN ## 

PRINT" <CLR}":GOSUB 2398 

PRINT" £3DDOWN,8SSPACE}PUFFER LOESCHEN (J 
/N) ?" 

GET @$: IF Qs<>"J" AND Q$<>"N" THEN 249 
PRINT" {CLR}Y" 

IF @Q$="J" THEN MAX=98:60T0 328 

GOSUB 1378: PRINT" {CLRY" 

FOR NR=8 TO 22 

PRINT ZE$ (NR) 

NEXT NR 

PRINT" {HOME>" 

NR=® 

GOSUB 1838 

GET @$: IF Qs="" OR Q$="(HOME)" OR Q$s=" 
{CLR}" THEN 3548 

IF Q$="+" THEN MAX=MAX-1:G0SUB 14979:60 
TO 48 

GDOSUB 1980 

IF ASC (Q$) >31 AND ASC(Q$)<12B THEN 458 
IF (Q@$="(LEFT}" OR Q#=CHR$ (208)) AND PO 
S(8)=8 THEN 338 

IF Q$=" RIGHT?" AND POS(8)=38 THEN 3358 
IF Q$=" (UP}" THEN GOSUB 1228:60T0 338 
IF @$="<DOWN}" THEN 60SUB 13588:G0T0 33 
[7] 

IF QS5=CHR$ (135) OR BF=CHR$ (141) THEN 47 
1%) 

IF Q$="«<INST}" AND PEEK(1924+38+PEEK (2 
14)#40)<>32 THEN 338 

IF Q$=" <CTRL-I?" AND POS(8)=® THEN 6085 
UB 488:60T0 339 

IF Q$="<CTRL-D}" AND POS(@)=B THEN 605 
UB 86598:G60T0 338 

PRINT Q$;:POKE 212,8 

IF POS(B)<S3S9 THEN 338 

REM * EINLESEN *# ö 

IF NR=188 THEN PRINT" <UP}":GOTO 338 
PRINT CHR$ (13); "{UP}";:POKE 211,8 
TFEINR)I="" 

OPEN 1,5 

FOR X=1 TO 39 

GET#1 ,E$ 

ZE$S (NR) =ZEF (NR) +E$ 

NEXT X 

CELOSE 1 

N=597 

IF MID$(ZE# (NR) ,N,1)<>" 
N=N-1:IF N>B THEN 628 
ZEF(NR)=LEFTE(ZEF (NR) ,N) 
NR=NR+1: IF NR>MAX THEN MAX=NR 
PRINT 

IF NR=188 THEN POKE 53288,2 
G60T0 358 


" THEN 8208 


REM * INSERT * 

IF MAX=10@0 THEN RETURN 
Z=PEEK (214) :N=NR 

FOR X=PEEK (214) TO 23 
PRINT" (S9SPACE}" 3; CHR$ (20); " 
POKE 214,Z+1:PRINT" {UP}" 
E=NR+22-Z: IF E>MAX THEN E=MAX 
FOR N=NR TO E 

PRINT ZE$(N) 

NEXT N 

POKE 214,Z: PRINT" UP}" 

FOR Z=MAX TO NR STEP-1 
ZE$(Z+1)=ZE$(Z) 

NEXT Z 

MAX=MAX+1 

ZE$ (NR)="" 

RETURN 


"=NEXT X 


REM * DELETE * 

IF MAX=B THEN RETURN 

Z=PEEK (214) 

FOR X=PEEK (214) TO 25 
PRINT" {S9SPACE}" 5; CHR$ (20) 5; " 
POKE 214,Z: PRINT" £UP}" 
E=NR+24-Z: IF E>MAX THEN E=MAX 
FOR N=NR+1 TO E 

PRINT ZE$(N) 

NEXT N 

POKE 214,2:PRINT" {UP}" 
MAX=MAX-1 

FOR Z=NR TO MAX 
ZE$(Z)=ZE$(Z+1) 


"NEXT X 


1888 NEXT Z 

1818 RETURN 

1028 : 

1838 REM * CURSOR EIN + 

1848 P=PEEK (289) +PEEK (218) #2564+PEEK (211) 
1858 IF FEEK(FP)I<I128 THEN POKE F,FEEK(P) +12 


8:POKE 54272+P,8 


19868 RETURN 

1070 : 

1089 REM * CURSOR AUS # 

1099 P=PEEK (209) +PEEK (218) #256+PEEK (211) 
1188 IF PEEK(P)>127 THEN POKE P,PEEK(P)-i12 


1118 RETURN 

11208 : 

1138 REM * ZURUECKBLAETTERN # 
1148 PRINT” {CLR?" 


Listing »Editor«. Bitte beachten Sie 
Seite 77 (Eingabehinweise) 


<166> 
<0s5> 
<190> 
<812> 
<825> 


<195> 
<016> 
<815> 


<094> 
<044> 


<029> 
<175> 


<206> 
<B12> 
<925> 


<118> 
<158> 
<211> 
<232> 
<0a02> 
<225> 
<216> 


<238> 
<157> 
<186> 
<812> 
<B17> 
<oS5&6> 
<112> 
<879> 
<0539> 
<195> 
“156> 


<181> 


<115> 
<191> 
<19085> 


<186> 
<221> 
<1B&> 


<245> 
<156> 
<B65> 
<174> 


<179> 
<216> 
<248> 
<a27> 
<033> 
<209> 
<832> 
<188> 
<067> 
<254> 
<178> 
<095> 
<B22> 
<0823> 
<188> 
<114> 
<191> 
<027> 
<052> 
<827> 
<152> 
<181> 
<218> 
<a98> 
<157> 
<078> 
<a0&> 
<247> 
<819> 
<181> 
<250> 
<245> 
<215> 
<197> 
<B85> 
<108> 
<009> 
<144> 
<2355> 
<217> 
<1453> 
<245> 
<241> 
<a41> 
<187> 
<172> 
<257> 
<1908> 
<138> 
<170> 
<137> 
<B851> 
<059> 
<142> 
<074> 
<199> 
<131> 
<857> 
<167> 
<174> 


<251> 
<182> 
<ı108> 
<259> 
<224> 


<256> 
<2532> 
<158> 
<027> 
<2352> 


online.de 


ar 188 


nline.net 


Wettbewerb: Terminalprogramm C 64 


1150 NR=NR-22: IF NR<® THEN NR=9 <244> 1718 PRINT" 'ES’ = HARDCOPY<DOWN?" <a82> 2298 GOTO 48 <221> 
1168 FOR Z=NR TO NR+22 <B811> 1728 WAIT 198,255 <186> 2298 : <052> 
1170 PRINT ZE#$(Z) <157> 1730 D=® <238> 2308 REM *%* SPEICHERGRENZE ##* <989> 
1188 NEXT Z <124> 1740 FOR SZ=15448 TO SG <238> 2318 IF S6<53248 THEN BY=S6-15440 <936> 
1198 PRINT" {HOME>" <154> 1758 IF PEEK(198)-=8 THEN 1838 <113> 2328 IF 56>57343 THEN BY=SG-15448-4995 <169> 
1282 RETURN <B66> 1768 GET B#$ <237> 2338 PRINT:PRINT"BYTES BELEGT:";BY <157> 
1210 : <248> 1778 IF B$=" " THEN WAIT 198,255:G6ET B# <187> 2348 PRINT"BYTES FREI{2SPACE}: ";46000-BY <236> 
1220 REM * CURSOR UP * <B46> 1788 IF B$="e" THEN POKE 53288,6:CL0SE 1:6 2358 RETURN <197> 
1238 IF NR=188 THEN FOKE 532808,PEEK (858) <098> 0TO 48 <028> 2368 : <125> 
1240 IF PEEK(214)=1 AND NR>B THEN GOSUB 11 1798 IF B$="(F3}" AND D=B THEN Z=PEEK (848) 2370 REM ** LO/HI-BERECHNUNG *#* <235> 
30: RETURN «2295 :POKE 53280,2 <217> 2388 1LO=S6-INT (56/256) #256 <Q26> 
1250 IF PEEK(214)=1 THEN RETURN <a51> 1888 IF B$="(F3}"AND D=B THEN OPEN 1,4,Z:F 2398 HI=INT (56/256) <148> 
1268 PRINT" {UP}"; <153> OR Z=841 TO 845:PRINT#1,CHR$(PEEK(Z)) 2488 POKE 832,L0:POKE 833,HI <144> 
1278 NR=NR-1 <208> s:NEXT:D=1 <899> 2418 RETURN <aB1> 
1288 RETURN <147> 1818 IF B$="<F1)" THEN D=B:CLOSE 1:POKE 53 2420 : <183> 
1298 : <873> 288 ,PEEK (838) <B18> 2438 REM ** PUFFER LOESCHEN #* <215> 
1300 REM * CURSOR DOWN * <B18> 1828 IF B$="{F5>" THEN GOSUB 2728 <144> 2448 PRINT" {CLR,2DOWN}" <035> 
1318 IF NR=MAX THEN RETURN <927> 1838 C$=CHRE (USR (SZ) ) <819> 2458 INPUT" BUFFER LOESCHEN (J/N) ";Q$ <197> 
1320 IF PEEK(214) >23 THEN PRINT ZE$(NR) :NR 1848 PRINT C$; <114> 2460 IF Q$<>"J" AND Q$<>"N" THEN 2450 <835> 
=NR+1: RETURN <059> 1858 IF D THEN PRINT#1,0$; <8789> 2478 PRINT" {DOWN}" <157> 
1350 PRINT" {DOWN}"3 <B96> 1868 IF SZ=53247 THEN S7=57343 <079> 2488 IF Q$="N" THEN GDSUB 2508:WAIT 198,25 
1348 NR=NR+1 <814> 1870 NEXT SZ <132> 5:60T0 48 <a85> 
1358 RETURN <217> 1888 CLOSE 1:FOKE 53288,PEEK (858) <229> 2498 56=15448 <815> 
1360 : <143> 1898 GET B$:IF B$="" THEN 18998 <B18> 2588 GOSUB 2588 <B31> 
1378 REM * SPEICHER-->VARIABLE * <115> 1908 IF B£="<FS5}" THEN GOSUB 2728 <224> 2518 WAIT 198,255 <211> 
1380 PRINT" CLR,SDOWN,9SPACE>EINEN HOMENT 1918 GOTO 49 <196> 2528 GOTO 48 <206> 
BITTE..." <111> 1928 : <193> 2530 : <837> 
1398 NR=B: ZEF(DI="" <105> 1938 REM *%* DATEN SPEICHERN #*%* <213> 25408 REM ** DISKBEFEHLE #%* <066> 
1408 FOR SZ=15448 TO SG <153> 1948 PRINT" {CLRY" <B811> 2558 PRINT" {CLR,ZDOWN) ‘$° = DIRECTORY (2DOW 
1418 E=USR (SZ) <a51> 1958 GOSUB 2308 <247> NY" <151> 
1428 IF E=13 THEN NR=NR+1: ZE$ (NR)="":60TO 1968 IF SG=15448 THEN 48 <143> 2568 PRINT SPC(13) CHR$(34);:POKE 212,8:PR 
1450 <992> 1979 DN$="" <1981> INT" <uPp}>" <258> 
14308 IF LEN(ZEF(NR))=39 THEN NR=NR+1:ZEF(N 1988 INPUT" {2DOWN}DATEINAME ";DN#E <167> 2578 POKE 198,1:POKE 631,29 <172> 
R)="" <190> 1990 IF DN$="" THEN 40 <815> 2580 INPUT"DISKBEFEHL ";B# <217> 
1440 ZE$ (NR) =ZE$ (NR) +CHRS$ (E) <198> 2008 OPEN 1,8,2,DN#+",S,W" <B59> 25908 IF B$="$" THEN PRINT:SYS F18:WAIT 198 
14580 IF NR<18® THEN NEXT SZ <244> 2818 GOSUB 2440 <B60> ‚255:60T0 48 <074> 
1468 IF NR=10B THEN PRINT" (4DOWN,8SPACE}AC 2028 PRINT#1 ,CHR$ (USR (15448) ); <a57> 2688 OPEN 15,8,15 <B45> 
HTUNG, TEXT ZU LANG !!!":WAIT 198,255 <212> 20838 IF ST<>@ THEN 2188 <037> 2618 PRINT#15,B# <2984 > 
1478 MAX=NR:POKE 198,9:RETURN <145> 2048 CMD 1 <205> 2628 GOSUB 24898 <163> 
14980 : <997> 2058 FOR SZ=15441 TO SG <039> 2638 CLOSE 15 <aB&> 
1498 REM * VARIABLE-->SPEICHER * <235> 2068 PRINT CHR&(USR(SZ)); <181> 2648 WAIT 198,255:60T0 40 <125> 
1508 POKE 53280,PEEK (838) . <992> 208708 IF SZ=53247 THEN S7=57343 <025> 2650 : <158> 
1518 PRINT" {CLR,SDOWN,FSPACEYEINEN MOMENT 2088 NEXT SZ <855> 2660 REM *#* DISKSTATUS #%* <180> 
BITTE... (2DOWN}" <819> 2898 PRINT#1,""; <166> 2678 OPEN 15,8,15 <115> 
1528 SG=15448 <B63> 2108 CLOSE 1:CLOSE 15 <877> 2688 INPUT#15,B$,C$ <145> 
1538 FOR NR=® TO MAX <148> 2118 IF VAL(B$)<>® THEN WAIT 198,255 <132> 2698 PRINT" {2ZDOWN}BISKSTATUS: "B$3" ";C$z" 
1540 IF ZEF(NR)="" THEN 1598 <191> 2128 GOTO 48 <B61> {DOWN?" <197> 
155@ FOR Z=i TO LEN(ZE$(NR)) <062> 2130 : <148> 27088 RETURN <a36> 
1550 Q$=MIDS(ZEF (NR) ,Z,1) <247> 2140 REM *%** DATEN LADEN ##%* <191> 2710 : <218> 
1570 POKE S6,ASC (Q#) :SG=SG+1 <812> 2150 DN$="" <02&> 2728 REM * HARDCOPY # <231> 
1580 NEXT Z: ZEF (NR) ="" <242> 2168 INPUT" {CLR,SDOWN}DATEINAME ";DN$ <BaB> 2738 D=®:CLOSE 1:Z=FEEK (848) :OPEN 1,4,Z <2@2> 
1598 FPOKE S6,13:56=SG+1 <248> 2178 IF DN$="" THEN 48 <196> 2748 FOR Z=841 TOD 845:PRINT#1 ,CHR$ (PEEK(Z) 
1602 NEXT NR <194> 2188 SG=15440 <214> ); NEXT <216> 
151® SG=SG-1 <218> 2198 OPEN 1,8,2,DN$+",S,R" <245> 2758 OPEN 2,3 <2489> 
1628 GOSUB 2308: WAIT 198,255 <226> 2208 GOSUB 26648 <251> 2768 PRINT" (HOME}"; (253> 
1638 RETURN <242> 2218 IF VAL(B$)<>@ THEN 2250 <181> 2770 PRINT#1 aare N <165> 
1640 : <168> 2220 POKE 144,@:POKE 832,80:POKE 833,608 <B67> 2788 FOR Z=1 TO 25 Listing »Editor« <:ı75> 
1658 REM ** DATEN AUSGEBEN *#* <i101> 2238 SYS 848:REM LOAD-ROUTINE <B6B> 2798 FOR SP=1 TO 48 <255> 
15648 PRINT" {CLR}?” <242> 2248 SG=PEEK (832) +PEEK (833) #256-1 <B6B> 2808 GET#2,E$:PRINT#1,E#; (Schluß) <BB8> 
1678 GOSUB 2308 <222> 2258 CLOSE 1:CLOSE 15 <227> 2818 NEXT SP <B41> 
1680 IF SG=15448 THEN 48 <118> 2268 IF SG=-1 THEN PRINT" {2DOWN}ACHTUNG, £ 2828 NEXT zZ <235> 
16908 PRINT" {DOWN}’E1” = BILDSCHIRM" <113> UFFER VOLL !! 1! <2DOWN}":S6=45535 <131> 2838 PRINT#1:CLOSE 1:CLOSE 2 <249> 
1788 PRINT" ’ES’ = DRUCKER" <155> 2278 GOSUB 2308:WAIT 198,255 <118> 2848 RETURN <177> 
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So machen’s andere 





Commodore-Sporiservice — 


Heimcomputer zur Turmierauswertung 





Eine handvoll Unternehmen hat sich auf das Auswerten von Sportveranstal- 
tungen spezialisiert. $o auch der Commodore-Sportservice, der bei Veran- 
staltungen von Rang und Namen zu finden ist. Diesmal war er beim Berliner 
Springreiten, bei dem Conrad Homfeld den World Cup mit nach Hause nahm. 


le kennen bestimmt die 
S Soiasiens Einbiendungen bei 

Sportübertragungen am unte- 
ren Rand Ihres Fernsehers. Was da- 
hinter steckt, ist ein sehr großer Auf- 
wand an Elektronik. Aber keine Rie- 
sen-Computer, sondern viele Kleine 
machen die Arbeit. Durch die Ver- 
wendung von Mikrocomputern wird 
dasSystem so flexibel, daß jedes an- 
fallende Problem damit gemeistert 
werden kann. Es ıst ein großer Un- 
terschied zwischen einer Hallenver- 
anstaltung und einem Skirennen, 
bei dem Minusgrade nicht nur den 
Computern zu schaffen machen und 
die Anlage auf Pistenraupen durch- 
geschüttelt wird. Ebenso wechseln 
die Anforderungen an die Lei- 
stungsfähigkeit des Systems von Fall 
zu Fall. 

Ein anderer Grund, der für ein Sy- 
stem aus mehreren kleinen Compu- 
tern spricht, ist die Fehlersuche. 
Denn ein großes System Ist wesent- 
lich servicefreundlicher, wenn es 
aus kleinen Einheiten zusammenge- 
setzt ist. Stellen Sie sich vor, Sıe hät- 
ten eine große EDV-Anlage bei ei- 
ner Veranstaltung im Keller stehen 
und nur Terminals am Richterturm. 
Nun fällt ein Bauteil aus. Die an- 
schließende Fehlersuche wird sich 
dann als sehr schwierig erweisen, 
daderFehlererstlokalisiertwerden 
muß. Außerdem liegt während der 
Reparaturzeit das System lahm und 
die Veranstaltung müßte unterbro- 
chen werden. Im Gegensatz dazu 
lassen sıch Fehler ın einem System, 
das aus mehreren kleinen Compu- 
tern zusammengesetzt ıst, sehr 
schnell beheben. Man sieht schnell, 
welcher Computer defekt ist und 
tauscht ıhn einfach gegen einen 
neuen aus. Dadurch kann ein Fehler 
so schnell behoben werden, daß 
der Außenstehende vielleicht gar 
nichts davon merkt. 

Das System des Commodore- 
Sportservice besteht aus: 

30 SX 64, dertragbaren © 64-Version 
mit integriertem Diskettenlaufwerk 
25 CBM 8286 Personal Computer 


Ausgabe 7/Juli 1985 





Hier-kaufen die 





Signale der Schriftgeneratoren zusammen. Auf dem linken Monitor die 


Rangliste, auf dem rechten das World Cup-Logo. Das Bild auf dem mittleren Monitor 
bekommt der U-Wagen. Die Schrift wird mit dem »Blue Box-Trick« ins Fernsehbild 


eingeblendet. 


25 CBM 4040 Floppy-Disk-Doppel- 
laufwerken | 

25 MPP 1361 Drucker mit IEEE- 
Änschluß 

2 Festplattenlaufwerke 20 MByte 

8 Telefonmodems zur Fernübertra- 
gung von Daten 

4 Videogeneratoren zur Fernsehdi- 
rekteinblendung 

50 1701 Farbmonitore 

6000 W Notstromversorgung, falls 
der Strom bis zu fünf Minuten aus- 
bleiben sollte. 

Mit diesen Geräten hat der Com- 
modore-Sportservice, kurz COSS 
genannt, seit 1982 über lOO nationale 
und internationale Sportveranstal- 
tungen Im europäischen Raum be- 
treut und Veranstalter, Zuschauer, 
Presse und Fernsehen nit Informa- 
tionen über den Wettkampf belie- 
fert. Wenn beispielsweise Journali- 
sten wissen möchten, wieviel ein 
Teilnehmer während des Wett- 
kampfes schon an Prämien »kas- 
siert« hat, können sie sich beim 
Sportservice jederzeit eine Gewinn- 
liste holen. 


Die SX 64-Computer werden vor 
allem bei Sportarten eingesetzt, dıe 
nach vielfältigen Kriterien beurteilt 
werden. Ein sehr gutes Beispiel da- 
für sind die nordischen Skimeister- 
schaften, wo verschiedene Diszipli- 
nen gleichzeitig ausgetragen wer- 
den. Es müssen dort vıele Ranglı- 
sten gleichzeitig geführt werden: 
Skispringen, Langlauf, Biathlon, etc. 
Jeder SX 64 hat dazu ein Programm, 
das eine bestimmte Auswertung 
übernimmt. 

Den Commodore-Sportservice 
gibt es seit Januar 1981, wo sıch das 
Team mit der Betreuung des FIS- 
Slaloms der Herren ın Lermoos pro- 
filieren konnte. Die siebenköpfige 
Mannschaft besteht aus Program- 
mierern und Elektronikern, die 
auch die gesamte Software und In- 
terface-Hardware entwickelt ha- 
ben. Bei großen Vorhaben wird das 
leam entsprechend verstärkt, so 
daß auch schon mal 15 Mann Kabel 


hinter Deckenverkleidungen verle- 


gen. 
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Inzwischen hat man bei Commo- 
dore Erfahrung mit alpinen und nor- 
dischen Skimeisterschaften, im 
Kanu- Rad-, Reit- und Rudersport, 
bei Schwimmveranstaltungen und 
im Turmspringen. Bisher war die 
Betreuung von Veranstaltungen im- 
mer ein Erfolg für den Veranstalter 
und den COSS. Auch die Fernsehan- 
stalten stellen dem Commodore- 
Sportservice ein sehr gutes Zeugnis 
aus. 

Es werden aber nicht nur Zeitaus- 
wertungen gemacht. Die Computer 
nehmen dem Veranstalter auch viel 
organisatorische Arbeit ab. Zum 
Beispiel bei der Erstellung der 
Melde- und Startlisten. Die Melde- 
und Startlisten von Hand nach Klas- 
sen zu ordnen und mit Schreibma- 
schine zu tippen, kostet manuell 
sehr viel mehr Zeit. 


Besonders kompliziert wird der 
Vorgang, wenn ein Reiter mıt mehre- 
ren Pferden an einem Wettbewerb 
teilnehmen möchte. Der Reiter kann 
nämlich selbst bestimmen, mit wel- 
chen Pferden in welcher Reıhenfol- 
ge er springen will. Das Reglement 
schreibt aber vor, daß zwischen 
zwei Durchgängen eines Reiters 
mindestens sechs andere Teilneh- 
mer auf dem Parcour gewesen sein 
müssen. Bestehen nur vier oder fünf 
Reiter auf die selbst festgelegte 
Startreihenfolge, kommt die Melde- 
stelle ins »Rotieren«. 


Die Startliste ist aber nicht nur der 
einzige »Zusatzservice«. Ist eine Prü- 
fung beendet, kann sofort eine Liste 
mit den Zwischenergebnissen ge- 
druckt, vervielfältigt und verteilt 
werden. Diese Liste zeigt zugleich 
die Startreihenfolge der nächsten 
Prüfung. 


Bis zu 30 $X 64 in ei- 
nem Informationssystem 


Wie schon erwähnt, werden die 
SX 64 zum Erstellen von Punktelıi- 
sten, Ranglisten, Startreihenfolgen 
verwandt, wenn eine große Informa- 
tionsflut zu bewältigen ist. So liefert, 
etwa bei nordischen Skimeister- 
schaften, einer die augenblickliche 
Rangfolge im Sprunglauf, ein ande- 
rer die Langlaufergebnisse oder 
den Stand in der nordischen Kombı- 
nation. Auch eine Aufstellung ausge- 
schiedener Teilnehmer der einzel- 
nen Klassen kann erstellt werden. 

Je nach Wichtigkeit wird der Vı- 
deoausgang eines bestimmten SX 
64 einem Videoverstärker (zur An- 
steuerung von bis zu 50 Monitoren) 
zugeschaltet und das verstärkte Bild 
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dem Infosystem zugeführt. Über 
dieses System werden Veranstalter, 
Teilnehmer und Zuschauer vom 
COSS mit aktuellen Informationen 
versorgt. Dazu werden, wo sich die 
Möglichkeit bietet, Farbmonitore 
aufgestellt. In Hallen oder in Korrı- 
doren (falls die Veranstaltung inner- 
halb eines Gebäudes stattfindet), in 
Sprecherkabinen von Rundfunkre- 
portern und in Pressesälen. Über 
das Infosystem wird meist das mo- 
mentane Geschehen mit einer ak- 
tuellen Auswertung gezeigt. 

Über ein selbstentwickeltes Inter- 
face werden die SX 64 miteinander 
»vernetzt«, meistin Gruppen von fünf 
Computern. Die fünf Heimcomputer 
werden mitsamt dem Interface ın 
einfach zu transportierenden HiFi- 
Turm-artigen Schaltschränken un- 
tergebracht. Durch dieses vom 
COSS entwickelte Interface können 
die SX 64 auf eine der 20 MByte- 
Festplatten zugreifen und von dort 
ständig die neuesten Ergebnisse ho- 
len und auswerten. Es ist auch mög- 
lich, vom Richterturm aus, mit einem 
CBM 8296, den SX-64 Kommandos 
zu geben. 

Das selbstentworfene Interface 
empfängt über eine V.24-Schnittstel- 
le von.egi 2296 oder von 
Festplatte Daten und sendet sie 
über den User-Port an einen SX 64. 
Am User-Port wird softwareseitig ei- 
ne 8-Bit-Parallelschnittstelle sımu- 
liert, die der Centronics-Norm recht 
ähnlich ist. Anhand einer Geräte- 
adresse erkennt das Interface, an 
welchen SX 64 die Daten geleitet 
werden sollen. Die Geräteauswahl 
findet also im Interface statt, und 
nicht ım SX 64. 


Drei Tage Aufbau 


Der technische Aufwand läßt er- 
ahnen, welche Arbeit investiert wer- 
den muß, um die gesamte Anlage 
aufzubauen. Beim World Cup der 
Springreiter in Berlin mußten dazu 
innerhalb drei Tagen etliche hun- 
dert Meter Kabel verlegt werden, 
um aus den einzelnen Computern 
ein einziges System zu machen und 
um die Verbindung zum Übertra- 
gungswagen herzustellen. 

Das Herz des Systems befindet 
sich mit auf dem Richterturm, hinter 
der Richterbank. In der Berliner 
Deutschlandhalle standen dort vier 
CBM 8296 mit Diskettenlaufwerken 
und Druckern und zwei Schriftgene- 
ratoren (Aston 3). Anstelle der 8296 
könnten genauso C 64 verwendet 
werden, so der COSS-Geschäfts- 
führer Dr. Hehenwarter, aber die 
8296 sind nun mal mit entsprechen- 





C 64 


den Programmen vorhanden. Mit 
drei der vier CBM 8296 wurde über 
Schriftgeneratoren das Bild fürs 
Fernsehen und das Infosystem er- 
zeugt. Für das Fernsehbild hatte 
man zwei Computer: Einen für die 
Zeit- und Fehlerpunkte-Einspielung 
und einen für Rangliste. Dadurch 
konnten beiden Auswertungen ab- 
wechselnd dem Fernsehbild zuge- 
mischt werden. So lange ein Reiter 
sich auf dem Parcour befand, wur- 
den in der Regel die Zeit und die 
Fehlerpunkte eingeblendet. Anson- 
sten zeigte man den World Cup- 
Stand. Über das Infosystem wurde 
der aktuelle Ritt mit dem Zeitstand 
gezeigt. War einmal kein Reiter auf 
dem Parcour, konnten von den SX 64 
Logos oder Pictogramme abgeru- 
fen und übers Infosystem gezeigt 
werden. Das war beispielsweise ein 
stilisierter Reiter oder das Commo- 
dore-Firmenzeichen. Mit dem vier- 


Mehrere Heimcomputer SX 64 übernehmen 
Auswertungen für das Infosystem. 
Zuschauer und Teilnehmer erfahren, 

was aktuell ist. 
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Sehr viele Kabel sind zu verlegen. Auf dem Foto sehen Sie den 
kleinen Ausschnitt der Anlage auf dem Richterturm. 


ten der CBM 8296 wurde die Anzei- 
getafel in der Halle angesteuert. 

Dem Infosystem waren in der 
Deutschlandhalle etwa 50 Monitore 
in den Gängen und im Pressesaal 
angeschlossen, wo das laufende 
Geschehen gezeigt wurde. Ins Ka- 
merabild wurden ständig die ak 
tuellen Zwischenergebnisse einge- 
blendet. Das laufende Geschehen 
nahm der Commodore-Sportservice 
mit einer eigenen Kamera auf. 

In Berlin wurden die gemessenen 
Zeiten ausnahmsweise auf Zurufein- 
gegeben. Im Regelfall ıst das nicht 
notwendig. Ein CBM 8296 wird dazu 
über eine V.24-Schnittstelle direkt 
mit der Elektronik der Zeitmessung 
verbunden. Vor dem Wettkampf 
werden die Nennungen eingege- 
ben. Die Nennung umfaßt neben 
den Namen, mitgebrachte Punkte 
für die World Cup-Wertung, die Na- 
tion, die Klasse und den Verein. Aus 
diesen Daten wird eine Startliste für 
den Veranstalter erstellt. Was wäh- 
rend des Turnieres noch getan wer- 
den muß, beschränkt sich auf die 
Eingabe der Fehlerpunkte. 

Die Zeitnahme ist in diesem Zu- 
sammenhang auch das einzige, das 
der Commodore-Sportservice nicht 
selbst macht. Das übernehmen Spe- 
zialfirmen wie Omega, Longines 
und Alge, die Ihnen bestimmt als 
Uhrenhersteller bekannt sind. Die- 
se Firmen erledigen die technische 
Zeiterfassung und stellen das Zeit- 
signal den Commodore-Leuten be- 
reit. Der Vorteil dieser Direktverbin- 
dung liegt auf der Hand: keine 
Übertragungsfehler mehr beim Zu- 
rufen der Zeit und keine Eingabe- 
fehler mehr. 
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Zuschauer verlangen gute Informationsdar- 
stellungen 

Damit die Zuschauer zu Hause vor 
dem Fernseher und die Zuschauer 
vor Ort gut über das Geschehen in- 
formiert werden können, sind viele 
Probleme zu lösen und hohe Investi- 
tionen nötig. 

Ein Problem, dashalfig auftrete, 
sei der Anschluß der Score-Boards, 
der großen Änzeigetafeln, die in je- 
dem stadion oder Jeder Sporthalle 
zu finden sind, so Dr. Hehenwarter. 
Der Anschluß der Tafeln erfolgt 
zwar über RS232-Schnittstellen, die 
aber teilweise alles andere als ge- 
normte Baudraten haben. 

sehr hohe Investitionen waren für 
die zwei Schriftgeneratoren nötig. 
Ohne Zubehör wie Einstellmonitore, 
Floppy-Disk-Laufwerk kostet ein 
einziger Schriftgenerator (Aston 3) 
über 100000 Mark. Die Schriftgene- 
ratoren erzeugen die Schrift, wie sie 
später im Fernsehen oder auf den 
Monitoren des Info-Systems zu se- 
hen ist. Von den beiden Schriftgene- 
ratoren erzeugt einer die Schriftein- 
blendungen für das Info-System, 
der andere liefert das Videosignal 
der Schrift dem Übertragungswa- 
gen. Diese Schriftgeneratoren Kön- 
nen fast alles erdenkliche, was mit 
Schrift zu tun hat: verschiedene 
schrifttypen, Farbwechsel, Block- 
satz, verkleinern, vergrößern, ver- 
schieben oder schrägstellen der 
Schrift und mehr. Der Anzahl der 
schrifttypen sind keine Grenzen ge- 
setzt. Die einzelnen Typen können 
mit einer Kamera aufgenommen 
und durch den Schriftgenerator di- 
gitalisiert werden. Die Zeichensätze 
werden dann auf Diskette gespel- 





Im Keller befindet sich unscheinbar das Gedächtnis de 
C0SS-Systems: zwei Festplattenlaufwerke mit insgesamt 40 MByte. 
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chert und können Jederzeit geladen 
werden. 

Die Ansteuerung der Schriftgene- 
ratoren durch den Computer erfolgt 
denkbar einfach: genau wie ein 
Drucker. Die Texte werden einfach 
im ASCII-Code an den Schriftgene- 
rator gesandt und können dort bear- 
beitet werden. Die Generatoren ha- 
ben auch eine eigene Tastatur und 
ein einfaches Textverarbeitungs- 
programm zur direkten Texteinga- 
be. 

»Früher«, so Dr. Hehenwarter, »ge- 
nügte das Schriftbild eines Compu- 
ters noch den Qualıtätsansprüchen. 
Heutezutage Ist es aber undenkbar, 
eine Matrixschrift mit vielleicht 8x8 
Punkten ins Fernsehbild einzublen- 
den.« 


90 Programme für 
ein Reitturnier 


Neunzig Programme wurden ın 
Berlin zur Auswertung des World 
Cup-Turniers gebraucht. Alle hat 
das COSS-Team selbst geschrieben. 
»Das geht auch nıcht anders«, so ein 
Mitarbeiter, »denn die Programme 
müssen häufig noch am Richterturm 
umgeschrieben werden.«Es ist also 
sehr wichtig, daß mindestens ein 
Programmierer, der an der Softwa- 
reerstellung beteiligt war und des- 
halb das Programm sehr gut kennt, 
mit von der Partie ist. Man braucht 
sich dazu nur ein Programm näher 
betrachten. Man wırd schnell fest- 
stellen, daß es professionelle Pro- 
gramme sind, die mit den meisten 
handelsüblichen Dateiverwaltun- 
gen nur den Namen gemeinsam ha- 
ben. Hier, beim Schreiben, Verän- 
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dern, Anpassen und Compilieren 
der Programme werden auch die 
4040-Laufwerke benötigt. 


X64 — 
Garbage Collection 
in einer Sekunde 


Ein Ansporn für C 64-Program- 
mierer dürfte die Tatsache sein, daß 
die COSS-Leute für den SX 64 eine 
Garbage Collection geschrieben 
haben, die maximal eine Sekunde 
braucht, um den gesamten String- 
speicher desSX 64 oder © 64 »aufzu- 
räumen« Jeder SX 64/C 64-Pro- 
grammierer hat wahrscheinlich 
schon mit dem Problem der Garba- 
ge Collection, die bis zu einer hal- 
ben Stunde dauern kann, gekämpft. 
Ohne diese schnelle Garbage 
Collection-Routine wäre der Einsatz 
des SX 64 als Computer zur schnel- 


len Auswertung gar nicht denkbar. 


"Sämtliche Datenleitungen haben 
einen gemeinsamen Knotenpunkt: 
zwei 20-MByte-Festplattenlaufwer- 
ke, die in Berlin in einem finsteren 
Loch »versteckt« waren. Die Verbin- 
dung der Computer mit dem Lauf- 
werk erfolgt über eine Schnittstelle, 
die von den COSS-Mitarbeitern 
selbst entwickelt wurde. Im Gegen- 
satz zu einer gewöhnlichen V.24- 
Schnittstelle. die maxımal 19200 
Bit/Sekunde übertragen kann, 
schafft die COSS-Schnittstelle um 
160000 Bit/Sekunde, also etwa das 
Ofache. Diese Schnittstelle wird von 
den IEEE-Schnittstellen der Compu- 
ter und Festplattenlaufwerke ange- 
steuert. 


Datenübertragung nach 
eigenem Konzept 


Warum man überhaupt eine 
- Schnittstellenwandlung vornimmt 


und die Daten seriell sendet, liegt 


einfach an der Zuverlässigkeit die- 
ser Art von Datenübertragung. Pa- 
rallele Übertragung von IEEE- 
Signalen wäre auf der benötigten 
Kabellänge einfach viel zu anfällıg 
gegen Störstrahlungen. Das Pro- 
blem ist nämlich, daß die Datenleı- 
tungen in den gleichen Kabel- 
schächten untergebracht werden 
müssen wie die Starkstromkabel. 
Und die Übertragungssicherheit 
muß auf jeden Fall gewährleistet 
sein. Schließlich holt sich jeder 
Computer des Systems von den 
Festplattenlaufwerken die Daten zu 
einer bestimmten Auswertung oder 
speichert welche ab. 


Auch Lösungen für 
kleinere Veranstaltungen 


Aus der Erfahrung, die der Com- 
modore-Sportservice beinationalen 
und internationalen Großveranstal- 
tungen gewann, wurde ein Pro- 
gramm für den © 64 entwickelt, das 
als Steckmodul erhältlich ist. Mit 
diesem Modul kann jeder kleinere 
Verein fast jede Art von Meiıster- 
schaften oder ähnliche Veranstal- 
tungemeuıswertemwfWas dazu nötig 
ist, ist ein C 64 mit Monitor, eın 
1541-Diskettenlaufwerk und ein 
Drucker. Mit dem Steckmodul kön- 
nen die Daten von bis zu 400 Teilneh- 
mer ın 40 Klassen verwaltet werden. 
Für größere Vorhaben bietet Com- 
modore auch andere Lösungen an. 
Zum Beispiel CBM 8296-Computer 
mit Diskettenlaufwerk, Drucker und 
den entsprechenden Programmen. 
Wem das nicht leistungsfähig genug 
ist, kannsich auch den Commodore- 
Sportservice mieten. Sollten Sie in- 
teressiert sein, erfahren Sie die Ko- 
sten auf Anfrage bei Commodore in 
Frankfurt. (hm) 
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EEPROMs wurden dabei allerdings 
nicht berücksichtigt. Die Software 
erlaubt das komfortable aber leider 
auch falsche Programmieren. Mit 
dem eingebauten Monitor werden 
Programme eingeladen, bezie- 
hungsweise ausgelesene EPROMs 
abgespeichert. Alle anderen we- 
sentlichen Funktionen erreicht man 
durch einfache Auswahl aus einem 
Menü. 

Bei der Programmierzeit wurde 
ein Kompromiß zwischen Geschwin- 
digkeit und Datensicherheit einge- 
gangen. Während des Tests gab es 
allerdings keinerlei Schwierigkel- 
ten mit den programmıerten 
EPROMs. Sie enthielten alle einge- 
gebenen Werte. Einziger Nachteil 
dieses ab 248 Mark teuren Gerätes 
ist wohl der nicht durchgeschleifte 
Expansion-Port. Nach dem Einset- 
zen des Brenners ist dieser belegt 
und kann nicht mehr für andere Mo- 
dule verwendet werden. 

Von Roßmöller wurde ein wesent- 
lich verbessertes EPROM-Program- 
miergerät angekündigt. Damit 
sollen sich auch EPROMs und 
EEPROMs vom Typ 27512 program- 
mieren lassen. Weiterhin soll dieses 
Gerät mit einer RS232- und einer 
Centronics-Schnittstelle (6-KByte- 
Druckerpuffer) ausgestattet sein. 
Dies soll zusammen mit einer 
6502-CPU den Anschluß an alle 
Computer mit dieser Schnittstelle 
ermöglichen. Das Brennen von Ba- 
sic-Programmen mit Autostart soll 
ebenso wie ein wesentlich verbes- 
sertes Video-Signal das Gesamtbild 
abrunden. Der Einführungspreis 
liegt nach Angaben des Herstellers 
bei 398 Mark. Über Lieferzeiten war 
noch nichts zu erfahren. 


Fazit 


Es hat sich etwas getan. Die Her- 
steller von EPROM-Programmier- 
geräten haben erkannt, daß hier ein 
weites Betätigungsfeld für den An- 
wender liegt. Dementsprechend 
ausgereift sind auch die getesteten 
Geräte. Es war kein Gerät im Test, 
das nicht als gut bezeichnet werden 
könnte. Besonders gefallen hat der 
PP 64. Auch das Dela-Programmier- 
gerät mit seinem unschlagbaren 
Preis kann mit zur Spitzengruppe 
gezählt werden. Tapfer geschlagen 
hat sich auch unser bisheriges Refe- 
renzgerät (das mittlerweile 198 
Mark kostet), das bis auf die nicht 
mehr zeitgemäße Einstellung per 
Schalter nur vom PP 64 geschlagen 
wurde. Interessant dürfte auch der 
»Neue« von Roßmöller werden. 

(Arnd Wängler/ah) 
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VORSCHAU 8/85 Die nächste Ausgabe erscheint am 19. Juli 


Neuer Pascal-Compiler 


Die 64’er-Redaktion hatte als 
erste die Möglichkeit, den neu- 
en Pascal-Compller von Data 
Becker zu testen. Handelt es sich 
nur um eine weitere Pascal-Ver- 
sion unter vielen, oder wird hier 
ein neuer Maßstab gesetzt? Je- 
denfalls sollten Sie mit der Än- 
schaffung eines Pascal-Compi- 
lers bis zur nächsten Ausgabe 
des 6d’er-Magazıns warten — es 
könnte sıch lohnen. 


Forth-Compiler 
zum Abtippen 


Das Listing des Monats in der 
Ausgabe 8 ist wieder einmal ein 
ganz besonderer Leckerbissen: 
Ein Forth-Compiler für den © 64 
erwartet Sie. Aber keine Angst, 
es kommen keine endlosen 
DATA-Wüsten auf Sie zu, denn 
dieser Compiler ist ın Basıc ge- 
schrieben. Dadurch ist das Com- 
pilieren selbst zwar etwas lang- 
sam, die übersetzten Programme 
laufen jedoch mit der von Forth 
gewohnten Geschwindigkeit. 
Und so ganz nebenbei lernen Sıe 
beim Abtippen des Programms 
die Arbeitsweise eines Forth- 
Compilers kennen. 


Hypra-Save 


Nachdem Hypra-Load bei den 
Lesern auf so großes Interesse 
gestoßen ist, werden wır In der 
nächsten Ausgabe das Gegen- 
stück Hypra-Save veröftentli- 
chen. Hypra-Save ist voll Kompati- 
bel zu Hypra-Load und ermög- 
licht ein erheblich schnelleres 
Abspeichern auf Diskette. Diese 
beiden Programme geben je- 
dem Besitzer eines 1541-Disket- 
tenlaufwerks ein Werkzeug an 
die Hand, das so manchen hard- 
waremäßigen Versuch, das lang- 
same Diskettenlaufwerk zu be- 
schleunigen, bei weitem über- 
trifft. 


Außerdem... 


Zwei Wettbewerbe mit tollen 
Preisen 

— Disk-Monitor 

— Berichte von der CES in Chi- 
cago 

— und wieder viele Tips und 
Tricks für den C 64, VC 20 und 
© 16 
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Neueste Spiele 


In dieser Ausgabe 
begannen wiır mit eı- 
ner neuen Ärt des 
Spieletests.  Fortge- 
setzt werden diese 
Tests unter anderem 
mit den Spielen »Mail 
Order Monsters« und 
»Racing Destruction 
Set«. Weiterhin finden 
Sie einen ausführli- 
chen Bericht über das 
neue Spiel zum James 
Bond-Film. 


Was macht 
der Sumpf? 


Die Raubkopierer- 
szene hat sich ın der 
letzten Zeit geändert. 
Was ist aus den ehe- 
maligen Crackern ge- 
worden, wie ist die 
Einstellung der heute 
noch Aktiven? Wiır 
werden auch die 
rechtliche Seite des 
verbotenen Kopie- 
rens und Tauschens 
beleuchten. 


Alles über Grafik 


Grafik ist wohl ım- 
mernoch eines derin- 
teressantesten The- 
men für den C 64. In 
einem ausführlichen 
Vergleichstest stellen 
wir Ihnen die bekann- 
testen Grafik und 
Malprogramme vor 
und machen Sie mit 
der Funktionsweise 
eines Lıghtpens, 
Trackballs und Gra- 
fiktabletts vertraut. 


Neuer Kurs: Commodore Extern — der Weg nach draußen 


Interessiert es Sie, wle Sie über 
den User-Port alle möglichen Gerä- 
te steuern können? Möchten Sie sich 
einen Lichtgriffel für unter 5 Mark 
selber bauen? Oder wollen Sıe wis- 
sen, wie man Meßgeräte über den 
Control-Port abfragt? Unser neuer 
Kurs führt Sie in die Geheimnisse 
der Hardware sowohl des C 64 als 
auch des VC 20 ein. Keine Angst, Sie 
brauchen nicht Elektronik studiert 


zu haben, um diesen Kurs mitverfol- 
gen und mitmachen zu können. An- 
hand einfacher und nachbausiche- 
rer Bauanleitungen und kleiner 
Demo-Programme ist der leichte 
Einstieg in Theorie und Praxis des 
»Commodore Extern — der Weg 
nach draußen« garantiert — und das 
auch, wenn Sie sich bisher noch 
nicht mit Hardware-Basteleien aus- 
einandergesetzt haben. 
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